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COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees £ 
van Commodore Dossier. 


DEZE MAAND: 


NIEUWS 
pagina 1 
Met onder meer aandacht voor de 
C-128, Commodore als 'antwoordap- 
paraat’, nieuwe programmatuur en 
NEABBS. 


TIPS & TRUCS 
pagina 4 
Unnew en reset-knop voor de 
Vic-20. Voorzichtig met niet goed af} 7 
gesloten disk-files. 


BASIC 
pagina 5 
Aan de hand van een handig BTW- 
programma neemt Roelf Sluman een 
aantal facetten van het programme- 
ren in Basie met u door. De eerste 
aflevering van een nieuwe serie. 


LISTINGS 
VAN LEZERS 
pagina 7 
Verslavend en misschien zelfs 
frustrerend, maar toch leuk om te 
spelen: Blokpuzzel van Kees Vuik. 


PROGRAMMAS | 
pagina 10 

Deze maand Sprite Hunter, een pro- | 

gramma dat het mogelijk maakt spri- 

tes te bekijken. Muziek Interrupts 

met de 8e Inventie van Bach en 

Scroll-begrenzer. 


CD-MARKT 
pagina 17 
Gratis kleine advertenties van en 
voor lezers van Commodore Dossier. 


SERVIGE 
pagina 18 
Het belangrijkste nieuws van de ver- 
schillende gebruikersgroepen. 
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De Federatie van Astrologische _niseert op 4 mei een computer- voorzitter van de FAG, die zal 
Groeperingen in het Nederland- dag voor astrologen en geïnter- ingaan op de aanschaf van een 
se taalgebied (FAG) is een over- esseerden in Trianon, Oude- computer voor astrologische be- 
koepelende organisatie van 12 _ gracht 252 te Utrecht. Op die rekeningen. 

astrologische verenigingen, stu- dag zullen in een aantal stands 

diegroepen en stichtingen. De demonstraties worden gegeven Nadere inlichtingen over de 
doelstelling van het FAG is het met astrologische programma’s __computerdag van het FAG geeft 
bevorderen van astrologische ac- voor onder andere Commodore- A.L. Vermist, Jagerakker 29, 
tiviteiten in Nederland en computers en er zal een lezing 1541 VH Koog aan de Zaan, 
Vlaanderen. De federatie orga- zijn van dr. Henk Hagebeuk, tel. 075-355629 (na 19,00 uur) 























COMMODORE ALS 
ANTWOORDAPPARAAT 


Viewdata System Group (Ant- 
woordnummer 1352, 8330 VN 
Noordwolde) maakt via een 
persbericht doven en slechtho- 
renden attent op de mogelijkhe- 
den van een bulletin board. 
Zo’n elektronisch prikbord is 
natuurlijk niet exclusief geschikt 
voor doven of slechthorenden, 
maar voor deze groep is het in- 
derdaad een uitkomst. Belang- 
rijkste onderdelen van zo’n 
elektronisch prikbord zijn een 
computer en een telefoonmodem 
met mogelijkheid om de tele- 
foon automatisch op te nemen, 
de zogenaamde ’auto-answer’- 
mogelijkheid. lemand die over 
een dergelijke installatie be- 
schikt, kan door iedereen wor- 
den gebeld die ook over een 
(Viditel-)modem en een compu- 
ter beschikt, De dialoog speelt 


NEABBS BEREIKBAARDER … 


zich in tekst op het beeldscherm 
af. Bij afwezigheid kunnen 
voorgeprogrammeerde beelden 
aan de beller worden getoond. 
VSG biedt voor zo’n prikbord 
een compleet pakket aan dat be- 
halve computer en modem de 
complete benodigde program- 
matuur en uitvoerige aanwijzin- 
gen bevat. Onderdeel van dat 
pakket is het Teletron-modem 
dat niet alleen automatisch 
beantwoordt, maar ook zelf een 
bepaald aantal nummers kan 
draaien en nog eens kan draaien 
bij geen gehoor. De bijgeleverde 
programmatuur bevat meteen 
ook een Viditel-programma. 

F 1921,- inclusief BTW moet 
het pakket kosten. Informatie 
kan worden ingewonnen bij het 
bovenstaande adres en onder te- 
lefoonnummer 05612-311 / 737. 





Het Amsterdamse privé bulletin board NEABBS, dat vele telecompute- 
raars inmiddels zo dierbaar is geworden, al was het alleen. maar om een 
nieuw modem te testen, is op een ander protocol overgestapt. NEABBS 
is voortaan voor iedereen bereikbaar die over een gewoon PTT-modem 
beschikt, dus 1200 baud ontvangen en 75 baud zenden. Trouwens al- 
leen leden kunnen programma’s in hun computer laden. Dat lid worden 
van de verschillende bulletin borads kan al met al nog wel eens in de 
papieren gaan lopen. 

Overigens is voor het bereiken van Commodore Dossier alleen alleen 
een PTT-modem en een abonnement op Viditel nodig. Dat kost dus 
f 17,50 per maand, exclusief BTW, telefoonkosten en computertijd. 
Commodore Dossier heeft NOG geen eigen elektronisch prikbord, 
maar is natuurlijk wel bereikbaar via de berichtendienst van Viditel. 
Stuur eens een boodschap naar: VNU Business Publ./ Commodore 
Dossier, nummer 400019620. 


tendienstmedewerkers voor een 


SUPER-ORDER 


Een van de grootste accoun- 
tantskantoren van Nederland, 
Moret en Limperg, heeft bij 
computerbedrijf Aton Services 
een monster-order geplaatst van 
650 Commodores 64 inclusief 
randapparatuur en programma- 
tuur. De randapparatuur bestaat 
uit een diskdrive, een monitor 
en een printer en onder de pro- 
grammatuur vallen onder meer 
de tekstverwerker Easyscript, 
Calcresult en Science Basic en 
een aantal ‘zorgvuldig geslec- 
teerde’ spelletjes. Het gaat er 
Moret en Limperg vooral om de 
medewerkers van de buiten- 
dienst vetrouwd te maken met 
het fenomeen computer. Via een 
enquête kozen 650 van die bui- 





Commodore 64 en 350 voor een 
duurdere Apple //c. De compu- 
ters worden aan het personeel in 
bruikleen afgestaan. 

De keuze voor Aton als leveran- 
cier van de Commodore- 
computers hebben Moret en 
Limperg gedaan in nauw over- 
leg met Commodore Nederland 
BV. Aton beweegt zich uitslui- 
tend op de professionele markt 
en specialiseert zich dan ook 
nog voornamelijk in program- 
matuur voor de grafische in- 
dustrie. De grootte van de order 
was het doorslaggevende argu- 
ment om voor Aton te kiezen. 
Dat bedrijf kan een dergelijke 
order zonder mankeren aan en 
stelt zich bovendien garant voor 
een goede nazorg. 


PC-20 GROTE BROER 


De nog maar pas geleden geïntroduceerde PC-10 van Commodore 
heeft er al nu al een groter broertje bij, de PC-20. Het belangrijkste en 
eigenlijk enige verschil met de PC-10 is dat de PC-20 beschikt over een 
harde schijf-eenheid, waarmee de machine een opslagcapaciteit krijgt 
van 10 MB. De PC-20 is vanaf nu op bestelling leverbaar en kost 
f 9150,- exclusief BTW. 











MALMBERG EN FISHER PRICE 


Vorige maand heeft uitgeverij Malmberg de eerste vier computerspellen 
van speelgoedfabrikant Fisher Price op de markt gebracht. De spel- 
leerprogramma’s zijn bedoeld voor de allerkleinste computeraartjes en 
zijn er op gericht om de taal- en rekenvaardigheid en het logisch leren 
denken van het kind te vergroten. Voor de leeftijdscategorie 4 tot 8 jaar 
zijn er nu Denkraam en Alphabetstad en voor kinderen van 7 tot 12 zijn 


er de programma’s Tuimelteller en Piekerspoor. 


PLUG-IN RANDAPPARATUUR 


Wie in maart de Personal Com- 
puter RAI ’85 heeft bezocht, 
heeft wellicht een kans gekregen 
om een glimp op te vangen van 
de enorme hoeveelheid nieuwe 
programmatuur op de stand van 
Aackosoft. Het bedrijf heeft 
een overeenkomst gesloten met 
het belangrijke Engelse 
software-huis Thorn EMI, zodat 
deze programma’s, die tot voor 
kort slechts te hooi en te gras te 
verkrijgen waren, nu ook via de 
reguliere handel te koop zullen 
zijn. 
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Maar van een software-huis 
mag een almaar groter groeiend 
aanbod worden verwacht, dat is 
op zich geen nieuws. Opmerke- 
lijker is dat Aackosoft zich 
sinds kort bezig houdt met de 
problematiek rond het aanslui- 
ten van computers en randappa- 
ratuur. Als het aan Aackosoft 
ligt, zal met het assortiment 
stekkers, snoeren en interfaces 
onder de verzamelnaam Plug-in 
nu eens duidelijkheid in de 
aansluit-chaos worden ge- 
schapen. 


TIPS EN TRUCS 


Maandelijkse rubriek met korte programma's, routi- 
nes en utilities. Beam mene viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 


NOTA BENE 


Alle programma’s voor de C-64 zijn voorzien van onze checksum. 
Dat controlegetal is te herkennen aan het voorvoegsel (shift/(spa- 
tie). Deze twee woorden, de haakjes en de schuine streep moet u 
niet intikken, maar u dient tegelijkertijd de shift-toets en de spatie- 
balk in te drukken. Dat ziet er op het scherm uit als een gewone 

spatie. Het checksum-programma dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt u in 
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UNNEW VOOR 
DE VIG-20 

Het komt geregeld voor dat bij 
het runnen van een programma 
de computer ’vastslaat’. Dit ge- 
beurt vaak doordat er verkeerd 
’gePOKEd’ wordt of door het 
geven van een verkeerd systeem- 
commando. De enige mogelijk- 
heid is dan het uit- en weer aan- 
zetten van de computer. Het na- 
deel van deze zeer effectieve 
methode is dat er van uw pro- 
gramma niets meer overblijft. 


LISTING UNNEW 
1 rem unnew generator 


Een betere methode is het hard- 
warematig resetten van de com- 
puter met behulp van een zoge- 
noemde resetknop. Na deze re- 
set start de computer weer op 
alsof u hem net heeft aangezet. 
Uw programma is echter nog 
steeds in het geheugen aanwe- 
zig. Hoe is het dan toch moge- 
lijk dat er geen listing verschijnt 
als u ’LIST’ intikt? De oorzaak 
hiervan is dat in de Basicpoin- 
ters, waarin de begin- en einda- 
dressen van een Basic- program- 


hans karsten 1985 


ma worden bijgehouden, de 
’start’-waarden zijn teruggezet. 
Het programma ’Unnew’, waar- 
van u hieronder de listing vindt, 
zorgt ervoor dat de oude waar- 
den weer in de Basic-pointers 
worden geplaatst. Hierdoor 
wordt uw Basic-programma 
weer ‘in ere hersteld’. 


HET PROGRAMMA 

Het programma bestaat hoofd- 
zakelijk uit een korte machine- 
taalroutine die door middel van 
een FOR-NEXT lus wordt ge- 
POKEd in een ongebruikt ge- 
deelte van het geheugen. Dit ge- 
deelte loopt van $02al (deci- 
maal 673) tot en met $02ff 
(167). Na het intoetsen van het 
programma (eerst saven!) wordt 
het machinetaalprogramma au- 
tomatisch naar cassette wegge- 
schreven. Wilt u van een disk- 
drive gebruik maken, dan kan 
dat door in regel 140 het device- 
nummer in een 8 te veranderen. 
Het voordeel van ’Unnew’ is 
dat het nooit uw Basic- 
programma zal overschrijven, 
hoeveel geheugen u ook heeft 
gebruikt. Bedenk echter wel dat 


het Unnew programma uit het 
geheugen verdwijnt als u cen re- 
set geeft. Laad het dus altijd in 
nadat er een reset gegeven is. 
Nog even voor de duidelijkheid: 
er wordt, als u het hieronder ge- 
liste programma runt, automa- 
tisch een machinetaalprogram- 
ma naar tape of disk geschre- 
ven. Dit programmaatje kunt u 
vervolgens laden na het geven 
van een reset. 


DE RESETKNOP 

Een resetknop is eenvoudig in 
de Vic-20 in te bouwen. Koop 
hiervoor een steker die past op 
de seriële bus van de Vic-20. U 
kunt het beste even in de hand- 
leiding naar de juiste aansluiting 
kijken. Het is de bedoeling dat 
de resetleiding d.m.v. een 
drukknopje kortstondig wordt 
doorverbonden met de massa 
(ground). Verbind dus pin 2 
met pin 6 (pin 6 wordt in de 
handleiding als ’not connected’ 
aangegeven maar is in feite de 
reset-pin). Als u het programma 
ingetikt heeft, moet u niet ver- 
geten het eerst te saven. 


2 poke251l,peek(43):poke252,peek(44):poke253,peek(45):poke254,peek(46):poke198,0 


5 dimdC94) 
fort=0673t00673+91 


data76,116,196,0 


105 
106 
110 
120 
140 
150 
160 


poke 198,2 


print” 


poke44,2:poke43, 161l:poke45,253: 
poke631,13:poke632, 


readd(t-673):poket,d(t-673):next 
datal65,43,133,146,133,148,165,44,133,147,133,149,160,5,177,146,240,7 
data200,208,249,230,147,208,245,200,152,24,101,146,133,146,144,2,230 

datai47,160,0,165,146,145,148,200,165,147,145,148,165,146,133, 148, 165 
data147,133,149,160,0,177,146,208,207,200,177,146,208,202,200, 152, 208 
data2,230,147,24,101,146,144,2,230;147,133,45,165,147,133,46,32,89,198 


13 


printchr$C147)chr$C17)dchrs(17dchrs$C17); 
print"save"schr$(34);s"unnew (sys673)“schr8(34ds”",1, 1" 
forx=ito5:printsnext 
print”"p043,pE(251):p044,pE(252):p0C45),pEC253) :pO046,pEC254)" 


PAS OP VOOR NIET GOED 
AFGESLOTEN DISK-FILES! 


Waarschijnlijk komt u als 
diskdrive-eigenaar in de disk- 
directory wel eens files tegen die 
van een sterretje (*) zijn voor- 
zien. Op dat moment is de 
grootste voorzichtigheid gebo- 
den, zeker als de bewuste dis- 
kette voor u waardevolle infor- 
matie bevat. De enig veilige ma- 
nier om een dergelijke file kwijt 


te raken: het gebruik van het 
VALIDATE- commando. Dit 
geeft u als volgt: 


OPEN1,8,15,”T”:PRINT#1,”V- 
”:CLOSEI 


De diskdrive zal nu gaan draai- 
en en het rode lampje zal gaan 
branden. De disk-drive voert nu 
een ‘grote schoonmaak’ uit. Dit 


poke 46, 2 


houdt in dat alle niet goed af- 
gesloten files worden verwijderd 
en dat eventuele niet gebruikte 
blokken weer worden vrijgege- 
ven. Na afloop van het VALI- 
DATEN kunt u de directory 
van de bewuste schijf inladen. 
U ziet vervolgens dat de file met 
het sterretje erachter uit de di- 
rectory is verdwenen. Bovendien 
is het aantal vrije blokken over 
het algemeen enigszins toegeno- 
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men, Een van de grootste fou- 
ten die worden gemaakt is het 
SCRATCHEN van zo’n niet 
goed afgesloten file. Dit kan 
een onherstelbare beschadiging 
van de inhoud van de diskette 
tot gevolg hebben, zeker als er 
daarna nog programma’s zijn 
weggeschreven. Nogmaals: al- 
leen een VALIDATE helpt u op 
correcte wijze van niet goed af- 
gesloten files af. 





ZN Kel 


BASIC ONDER DE LOEP 
(COMMODORE 64, VIC 20, COMMODORE 16) 


door Roelf Sluman 


In deze serie willen we met u 
een aantal facetten van de pro- 
grammeertaal Basic ’doorne- 
men’. Dat doen we aan de hand 
van listings en eenvoudige 
Basic-programma’s, waarbij we 
uitgebreid commentaar leveren. 
In de eerste aflevering van Basic 
onder de loep bekijken we een 
btw-programma. De opzet van 
het programma is eenvoudig ge- 
houden, maar er zijn een aantal 
handigheidjes gebruikt die u 
ook in uw eigen programmatuur 
kunt toepassen. Zoals u ziet als 
u de listing eens bekijkt, zijn de 
diverse programma-onderdelen 
van elkaar gescheiden door mid- 
del van Rem-regels met sterre- 
tjes. U weet waarschijnlijk dat 
deze regels, vanweg het Rem- 
statement (REM = REMark) niet 
worden uitgevoerd. De compu- 
ter ’weet’ dat er sprake is van 
een regel met daarin boodschap- 
pen van de programmeur. De 
’blokken’ tussen de regels met 
sterren staan allemaal op zich 
zelf. 

Zo is er bijvoorbeeld een 

apart berekeningsblok aanwezig, 
dat zich bevindt in de regels 
3000 t/m 3230. 


SUBROUTINES 

In dit programma wordt er in- 
tensief van zogenoemde subrou- 
tines gebruik gemaakt. Dit zijn 
programmagedeelten die ver- 
scheidene keren gebruikt wor= 
den. Uiteraard kunnen deze re- 
gels dan meermalen worden in- 
getypt, maar er is een eenvoudi- 
ger manier: het gebruik van 
subroutines. Een subroutine kan 
vanuit een programma worden 
‘aangeroepen’ door middel van 
het GOSUB-commando. Dit 
commando zegt tegen de com- 
puter: ”bewaar het regelnum- 
mer waar je gebleven bent en 
spring naar het regelnummer 
dat na GOSUB staat. Aan het 
einde van een subroutine vinden 
we altijd een RETURN op- 
dracht. Deze RETURN betekent 
voor de computer: "je bent nu 
klaar met de subroutine, keer 
nu weer terug naar de regel 
waar je gebleven was’’. Een 





voorbeeld hiervan zien we in rc- 
gel 300. Er wordt hier gespron- 
gen (door middel van het 
GOSUB-commando) naar regel 
2000. Hier bevindt zich een kor- 
te subroutine die, afhankelijk 
van hoe het programma zich 
ontwikkelt, wordt beëindigd op 
regel 2040 of op regel 2050. In 
beide gevallen wordt er, door 
het commando RETURN, weer 
teruggesprongen naar regel 300, 
Omdat er op regel 300 verder 
geen commando’s meer staan 
(immers: de subroutine hebben 
we al gehad) gaat de computer 
verder met het uitvoeren van re- 
gel 310. 


HET PROGRAMMA 

EENS NADER BEKEKEN 

Het eerste blok instructies vin- 
den we in regel 10- 30. In dit 
gedeelte worden de variabelen 
(in ons geval uitsluitend ’string- 
variabelen’ geïnitialiseerd. Van- 
af nu kent de computer de vol- 
gende strings: 


BT$ ”BTW ”) 

N$ (netto ”’) 

B$ (”bruto ”) 

DOS (twee CURSOR DOWNS) 
BDS (”bedrag °”) 

NES (”bij netto bedrag ”’) 
BR$ (”van bruto bedrag’) 
MAS (’’maak uw keuze”) 


Vanaf nu kunnen we dus, in 
plaats van het intoetsen van bij- 
voorbeeld PRINT maak uw 
keuze” volstaan met PRINT 
MAS. Zoals u waarschijnlijk al 
merkt, kan dit een hoop geheu- 
genruimte schelen. BLOK 2 (re- 
gel 100-130) zorgt ervoor dat de 
schermkleuren worden aange- 
past en dat het scherm ge- 
CLEARed wordt. Mocht u dit 
programma op een C-16 of op 
een Vic-20 gebruiken, dan is het 
nu de tijd om de schermkleuren 
volgens de standaard van uw 
computer in te stellen. De 
schermkleuren in het geLISTe 
programma zijn afgestemd op 
de Commodore 64. Vervolgens 
wordt de boodschap ’’maak uw 
keuze” (door middel van MAS) 
op het scherm gezet. Bovendien 


wordt er een klein menu ge- 
print, zoals u kunt zien als u de 
regels 120 en 130 eens nauwkeu- 
rig bekijkt. De gebruiker van 
het programma moet hier kiezen 
of hij met 5% of met 19% gaat 
werken. BLOK 3 (regel 140-180) 
handelt het ophalen van een ka- 
rakter af. Zoals we al zagen, 
moet er gekozen worden tussen 
de Fi-toets, chr$(133) en de 
F3-toets, die kan worden voor- 
gesteld door chr$(134). 

Het volgende gebeurt: 

(regel 140) haal, door middel 
van de subroutine vanaf regel 
1000, een toetsaanslag op. 
(regel 150) Is er geen F1 of F3 
ingedrukt? Spring dan weer te- 
rug naar regel 140. 

(regel 160) Is FI ingedrukt? Zo 
ja, dan gaat het dus om 5%. 
De variabele PC wordt dus op 5 
gezet, waarna regel 170 kan 
worden overgeslagen. 

(regel 170) FI is niet ingedrukt, 
dan hebben we dus automatisch 
met F3 te maken. In dit geval 
wordt de variabele PC op 19 ge- 
zet (19% btw). 


(regel 180) De inhoud van varia- 


bele PC wordt op het scherm 
gePRINT. 


BLOK 4 (200-250) is in feite een 
herhaling van BLOK 2. Er wordt 
weer een menu op het scherm ge- 
print. De gebruiker moet nu 
gaan kiezen: btw bij een netto 
bedrag optellen of btw van een 
bruto bedrag aftrekken. Afhan- 
kelijk van de keuze worden er 
twee variabelen ingesteld. Als er 
btw bij een netto bedrag moet 
worden opgeteld (keuze F1) 
wordt NE op 1 gezet. BR wordt 
dan 0. In het andere geval (F3 is 
ingedrukt) wordt NE gecleard (0) 
en wordt BR op 1 gezet. 


BLOK 5 (300-310) is een ’test’ 
voor de gebruiker. Er wordt 
voor de zekerheid, door middel 
van een subroutine op regel 
2000, nog even gechecked of de 
gebruiker wel de juiste keuze 
heeft gemaakt. De subroutine 
op 2000 vraagt dat aan de ge- 
bruiker. Indien alles klopt 
wordt de variabele FL op 0 ge- 
zet. Nu krijgen we meteen met 
een belangrijke regel te maken: 
regel 310. Hierin staat letterlijk: 
als er een FL is (dus: als FL 
NIET NUL IS!!) spring dan 
weer terug naar regel 100 
(BLOK 2). Een andere manier 
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van programmeren was dus ge- 
weest: 310 IF FL < >0 THEN 
100. 


BLOK 6 (400-420) zorgt voor 
het invoeren van het bedrag. Er 
wordt niet getest op geldigheid, 
dit om het programma niet al te 
lang te maken. Let even op re- 
gel 410; de computer weet nog 
steeds dat met BD$ het woord 
‘bedrag’ wordt bedoeld. Het be- 
drag wordt vervolgens opgebor- 
gen, door middel van de varia- 
bele BD. 


BLOK 7 (regel 500) In feite is 
dit het belangrijkste blok van 
het programma. Hier wordt na- 
melijk de opdracht gegeven om 
naar de subroutine op regel 
3000 te springen, die de bereke- 
ning uitvoert. 


BLOK 8 (regel 600-630) kijkt of 
er nog een berekening gemaakt 
kan worden met dezelfde varia- 
belen. Dit kan voor de gebrui- 
ker dus een hoop invoerwerk 
schelen, omdat de blokken 2 
t/m 5 kunnen worden overgesla- 
gen. Afhankelijk van de wens 
van de gebruiker wordt dus 
naar BLOK 2 of naar BLOK 6 
gesprongen. (regel 620 voor 
blok 6, regel 630 voor blok 2). 
Uiteraard hoeft blok 1 niet op- 
nieuw doorlopen te worden, 
omdat de stringvariabelen im- 
mers niet zijn veranderd. 


DE SUBROUTINE- 

BLOKKEN 

De eerste sub vinden we in 
BLOK 9 (regel 1000- 1020). De- 
ze subroutine kijkt of er een 
toets is ingedrukt. Zo niet, dan 
wordt er weer opnieuw gekeken, 
totdat er inderdaad een toets 
‘binnenkomt’. De waarde van 
deze toets wordt opgeslagen in 
gs. 


BLOK 10 print de stand van za- 
ken voor de gebruiker op het 
scherm. Dit aan de hand van de 
eerder ingetoetste variabelen. Zo 
bepaalt de variabele PC of er 
met 5 of met 19 procent btw 
wordt gerekend. Op dezelfde 
manier wordt variabele NE ge- 
zet als het om het optellen van 
btw bij een NETTO bedrag 
gaat. De gebruiker krijgt zijn 
keuze dus op het scherm te zien 
(regel 2000-2020). Vervolgens 
wordt er gevraagd of alle keu- 
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zen goed zijn (regel 2030). Er 
wordt dan even naar een andere 
subroutine gesprongen die een 
toets ophaalt (subroutine op re- 
gel 1000, BLOK 9). Indien er 
een J is ingetoetst ('Ja’) wordt 
de variabele FL gecleared, dus 
op 0 gezet. Hier wordt immers 
op getest in regel 310 (BLOK 
5). Als de gebruiker niet tevre- 


den is, toetst hij een _N in 
CNee’). De variabele FL wordt 
dan op 1 gezet. Een variabele 
waarop getest wordt, wordt 
door programmeurs ook wel een 
‘vlag’ genoemd. In feite wordt 
de vlag FL dus gezet of geclear- 
cd, al naar gelang de toets die 
de gebruiker indrukt. (Vandaar 
trouwens de naam ’FL’ (FLag). 


| Beroepsprogrammeurs gebruiken 


automatisch een dergelijke naam 
voor een vlag-variabele). 

Tot slot van dit verhaal: BLOK 
11. (regel 3000-3230). Deze su- 
broutine doet al het rekenwerk. 
Allereerst wordt het gebruikte 
btw-percentage op het scherm 
gezet. (regel 3000-3005). Vervol- 
gens wordt er, afhankelijk van 
de keus van de gebruiker naar 
regel 3020 of regel 3200 
gesprongen. Na het eigenlijke 


regelwerk komt de computer 
een RETURN tegen, die hem 
weer terugbrengt naar het 
hoofdgedeelte van het pro- 
gramma. 

U ziet dat dit programma niet 
zo ingewikkeld is als het er op 
het eerste gezicht uitziet. Eigen- 
lijk is dat het geval met elk pro- 
gramma. Door training bent u 
dan ook al snel in staat om aan 
de hand van een listing een pro- 
gramma te ‘begrijpen’. 


LISTING BTW-PROGRAMMA 


10 rem (1985) roelf sluman{<shift>/{spatieddb 

20 bt$="btw "inS="netto “:b$="bruto “-dog=chr$#(17) tchr$(17)sbds="bedrag "Cshift> 
/<spatied73 

30 ne8="bij “"+n$tbd$:sbr$="van =tb$+bd$:;:mas="maak uw Keuze:"Cshift>/éspatie>fl 

40 rem ER Ide ee heek II IIIA IAA Ie kkk HI A AK A KAA CSh LF ED /Cspat ie d8d 
100 printchr$(147)chr$(5):poke53280,8:poke53281,11Cshift>/{spatiedcs 

110 print"“ma$<shiftd/{spatieddf 

120 print” “"doschr$C(18)"f1"chr$C146)" 5%"<shift>/<spatie>93 

130 print” “=chr817)chrs(18)"f3"chrs(146)" 19%"<shift>/<spatie>99 

135 rem IIIA RIAA AAH B IR HI HRE ke HIE KK CSh if ED / Cspat ie >08 
140 gosubl00O:rem teken ophalen<shift>/<spatie>bS 

150 ifgs>chr$C133)andaschrse134)thenl4OKshift>/Cspatied27 

160 ifq$=chr$(133)thenpc=5:gotol80Xshift>/<spatieda2 

170 pc=19Xshift>/<spatie>03 

180 printchr$(17)pc"%"<shift>/<spatieddb 

185 rem beteekenen tetek kkk teke deken nk ke hehehehe kkk kk CSh if 1D / spat ied 36 
200 printdo$ma$<shift>/{spatie»56 

210 print” “do$chr$18)”fi"chr$Ci46)” 
220 print” “chr$(17)chr$C18)°f3"chrsCi46d” 
230 gosubl00OXshift>/<spatie>6a 

235 ifq®>chr#(133)andgs>chrst134)then230ishiftd/<spatiedSe 

240 ifg$=chr$(133)thenne=i:br=0:goto300shift>/{<spatied4c 

250 br=i:ne=OCshift>/{<spatiedda 

260 rem eeen deelde dede hehe kee eek hekelde hehehehe heee kleene kh k Cshif LI / Cspat ied8a 
300 gosub2000:rem testen of variabelen goed zijn<shift>/<spatie>10 

310 iffltheni00<shift>/{spatie>20 

315 rem eee IRI IIR IIA RIAA IKK K KI NIA A A KIA AKK CSh if LD / <spatiedbS 
400 rem bedrag invoeren{shift>/{spatie>0b 

410 printchr$(17)”voer het “bd$"in"<shift>/<spatie>b0 

420 inputbd{shiftd/{éspatie>26 

430 rem beet Bleke ARI He Heke ee ke he hehehe hehe keke Heke kee keke kk KR CSh if TD / C5pat ied 20 
500 gosub3000:rem berekening<shift>/<spatiedde 

510 rem edet de he he Ie Hehehe ede He Heee enke Bee he he ee hehe kee Reenen {Sh if 1, / spat ied70 
600 printchr$(17)”nog een berekening “;é<shift>/<spatie>00 

605 print”met deze waardes? (j/n)X<shiftd/{spatieded4 

610 gosubl000:ifas<>”j"andgs<>"n"then6tO0{shiftd/{spatied66 

620 ifq$="j"then400Xshift>/<spatiedfb 

630 gotol0O0Xshift>/Cspatiedce 

640 vem KAA KIKKKRRAIN IIA AIA HH AAA AA HHA KAAK C5h if ED /CspatiedOd 
1000 poke198,0:q$=""<shift>/{spatiedad 

1010 getqg$:ifg$=""thenl0l0<shift>/{spatiedf4 

1020 return<shift>/&spatied71 

1030 rem eenen leed ke deedeetee teke ke heek he behe HR Ake hek A HAAR CShifLD/ Cspatieda7 
2000 printchr$t147)dchrs17)dpechrs 157)" % “bt$s<shift>/<spatie>90 

2010 ifnethenprint"bij “"bd$"“optellen":goto2030Xshift>/<spatied97 

2020 print”van “bd$"aftrekken"{<shift>/{<spatie>6e 

2030 printdo8“zo goed? (j/n)Xshift>/{spatied74 

2035 gosub1000:ifas<>”j"andgs<>"n"then2035{<shift>/<spatiedcl 

2040 ifq$="j"thenfl=O:return<shift>/<spatie>62 

2050 ifqs="j"thenfl=O:return(shiftd/{spatied97 

2060 fl=i:treturn{shiftd/<spatied39 

2070 rem ette dededekeen neleke he teke keke He Re he hehehehe ehehe he kkk k AIA AAH AAA KAAK CSN f LD /<spatiedbb 
3000 printchr$(147)chr$158)pei<shift>/<spatied0c 

3005 printchr$(157)"%"chr$5)chrsC17) Cshift>/Sspatiedcc 

3020 ifbrthen3200<shift>/éspatiedfa 

3030 printn$bd$,bdXshift>/{spatied26 

3040 printbt$"“bedraagt”";,bd*({pc/100)4shiftd/<spatiedda 

3050 printb$bd$,bd+(bdktpc/100))<shift>/<spatie>99 

3060 return<shift>/<spatied7! 

3200 printb$bd$,bd<shift>/<spatie>7b 

3210 printbt$"“bedraagt”,bd-(bd/(100+pc)X100) shift>/<spatie> 10 

3220 printn$bd$,bd/100+pc)klO0OSshift>/{spatie>da 

3230 return{shiftd/{spatie>d lc 


“bt$nes<shift>/<spatied1i4 
“bt$br$<shift>/<spatiedec 
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Het beste uit POSTBUS 9194. De programma's die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De ke bij voorkeur inzenden op schijf of cas- 
sefte, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 

besturingstekens zijn voorzien. De beste ne uit deze rubriek kunnen in nn komen om door COMMODORE DOS. 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


BLOKPUZZEL spelen een onmogelijkheid 
BLOKPUZZEL is een zeer ver- wordt. Het lijkt in het begin NOTA BENE 


slavend computerspel. Het is de misschien een onmogelijke op- 

toplisting van deze maand, inge- gave om de stukken op hun Alle programma’s op deze en de volgende pagina’s zijn voor- 
zonden door Commodore Dos- _ juiste plaats te krijgen. zien van onze checksum. Die is te herkennen aan het voor- 
sier lezer Kees Vuik. Het doel Maar: de aanhouder wint. voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 
van het spel is eenvoudig: u Uiteraard is ook dit programma intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
moet proberen de twee grote weer voorzien van onze check- tiebalk in te drukken. Op het scherm ziet dat er uit als een 
vierkanten die u op het scherm sum, zodat u waarschijnlijk gewone spatie. Daarna voert u het feitelijke controle-getal in. 
krijgt te verwisselen. Dit kunt u geen fouten zult maken bij het Het checksum-programma, dat er voor zorgt dat uw compu- 
doen door met alle blokken op _ intoetsen van deze vrij lange ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
het scherm te gaan schuiven. De listing. Toch geldt: het pro- u in Commodore Dossier 1. 

computer houdt voor u in de gramma eerst SAVEn, voordat 

gaten of een bepaalde ’zet’ wel u het voor de eerste keer RUNt. 

of niet is toegestaan, zodat vals Veel plezier ermee! 


LISTING BLOKPUZZEL 


10 remkkkkkkkk"blokpuzzel” AkAAAAAAAAACShiftd/Cspatiebad 


remkkkcopyright Kees vuik 1984kkAAKCshiftd/Cspatiedc3 
remkxx*na On line 1OOx%XXkk*Cshiftd/<spatiedag 


printchr$(147):poke53280,0:poke53281,3Xshift>/<spatied47 
printchr$(144dechrsCti7dehrst17dehrst17dehrs1i7dehrsl17)Lshiftd/Lspatie>9Ic 
printtab(12)" bloKkpuzzel"<shift>/<spatie>2a 
printehr$(17)chrs(17)tabl12)"c-kees vuik=-1984"<shift>/{spatied28 
forw=Oto200:snext{<shiftd/{spatie>2a 
gosubii90<shift>/<spatie>dde 
poke53281,1i1l:poke53280,2:printechr$(147)dchrs(i4adìshiftd/<spatiedcd 
gg=O<shiftd/<spatiedec 

remkkkpoke900, 20-35 max!!!x=cooré<shift>/<spatiedel 

remkkxpoke901,0-15 max!!t!y-coorg<shiftd/<spatie>2b 
poke900,20:poke910,25:poke920,35<shiftd/<spatiedOe 
poke90t,O:pokeIll,O:pokeI21,OCshiftd/Sspatie>26 
poke930,20:poke940,25:poke950,35<shiftd/<spatie>23 
poke93i,1O:pokeddl,1O:pokeI51,1OLshiftd/<spatie>2a 
poke960,20:poke370,25:poke980, 30:pokeI90, 35 <snhift>/<spatied8e 
poke961,15:poke971,15:poke981,15:pokeII1, 15<shift>/Xspatied84 
ww=49152<shift>/<spatie>4i 
Syswwisys(wwt+1l00):poke646,OCshift>/Cspatie>f7 
forqw=200to90OstepiOOlshift>/<spatie>de 
sys(wwtgqw):inextqawéshiftd/<spatied6b 
forli=0to8:poke2009+li,lil:poke54272+2009+li,l:inextlilshift>/{spatie>4b 
printechr$(19)<shift>/<spatiedad 

forw=Oto22:printchr$(Sdchrs(18)”" "snextwishiftd/{<spatieda5 
forw=Otoi8:printchr$(1i8)dchr$(5)" "srnextw<shiftd/{Xspatie>9d 
printchr$(19):forw=Oto22:printtabliS)dchr$(5)chrs$(18)" * snextw<shiftd/{spati 


printehr$C19)lchrst5dehrs18)” schuiven maar “Cshiftd/<spatiedbe 
printchr$(29)dchrst2IIchrsichrs144):print<shift>/Lspatie>2e 
printehr$(29)chr$(144)” breng het gele "<shiftd/{<spatie>9a 
printchr${29)chrs(29)}"blok door schui-"Cshift>/{<spatiedad 
printchr$(29)chr$(29)"ven op de wit-"‘shiftd>/{spatiedd6 
printchr$(29)dchr$(29)}"te lijn onder“<shiftd/{<spatied8e 
print:sprint:printchr$(29)chrs$(29}” besturing:”<shiftd/<spatie>9b 
printchr$(29dchrs(17dechrs$5)" f-l*chr$Cl44)" omhoog"<shiftd/{<spatied8e 
printchr$(29)chrs(5)" f-3"chr$(i44)* rechts"<shiftd/<spatied40 
printchr$(29)chrs(5)" f-5*chr$(144)" links"<shiftd/<spatied00 
printehr$(29)chrs(5)" f-7*chr$C144)” omlaag” <shiftd/{<spatieda2 
print:printchr$(29)" typ bloknummer,"{<shift>/{spatiedi! 
printchr$(29)” en daarna de “<shift>/{spatiedfc 

420 printchr$(29)” f-toets van “<shift>/<spatiedba 

430 printchr$(29)” je keuze.":print:print{<shift>/{spatie>9e 

440 printchr$(29)chrs(30)” opnieuw? typ:"chr$Cia4)”n"<shift>/<spatie>96 

450 printchr$(19)<shiftd/Lspatied>94 Ô 

460 h(O)=20s:hCij=25sh2=3SinC3l=20OihC4l=25i:n5=35ihte=20rnt7I=25Cshiftd/<spat 

iedf2 
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470 h(8)=30:h(9)=35(shiftd/{spatiede9 

480 vCO}=0;VC1N=05VE2I =O VINE IO; VC4D=1O:VE5I= 10: VC6I= 15: V(Td=15(shiftd/Cspati 

edea 

490 vl8)=15:vV(9)=15<shiftd/Sspatiedd0 
rem besturing kA%AAAAAAAAAAAAAAAKESN Ì ft>/<spatie>l7 
getz$:ifz$=""then5l0<shiftd/{<spatiedce 
bl=asc({z$)=48: ifbl=30thenz$="":run LOOSshift>/é4spatiedd4c 
ifbl<Oorbl>Ithen5iO{shift>/{spatiedb3 
dv=0O:dh=0:Kl=0:Kk2=0:fa=O<shiftd/<spatie>86 
geta$:ifas=""then550Xshift>/{spatiedil 
ifa$=chr$(133)thendv=-5:goto 6204shift»/{spatied87 
ifas=chr$(134)thendh=5: goto 640X<shiftd/<spatie»39 
ifa$=chr$(135)thendh=-5:goto 750{<shift>/{spatieded 
ifas=chr$(136)thendv=5 :goto 770Xshift>/{spatied53 
goto 51O0Xshift>/{<spatiede7 
remkkkktttktkkkhtekkkkkrkikkkkknkkktshiftd/spatiedc5 
fa=O:goto780Xshift>/{<spatied67 
remkes kkhkkkkkkkhktkkhkkkkkkktshiftd/<spatieddl 
fa=5<shiftd/{<spatied02 
ifbl=Oorbl=lorbl=Zorbl=4orbl=6Gorbl=Ithen670<shift>/{<spatied2d 
ki=peek(1024+hCbl)+dh+4Oxvibl)):k2=32:goto870Xshift>/{<spatie>f6 
ifbl=Oorbl=iorbl=2Zorbl=6orbl=Ithen690Sshiftd/{<spatied0f 
ki=peek(1024+h(bl)+dht+fa+4Oxvibl)):k2=32:goto87OLshift>/<spatied67 
ifbl=1ithen720<shift>/Xspatied24 
ki=peek(1024+h(bl)+dh+40kv(bl)):k2=peek(1024+hlbl)tdh+40xlvlbl)+5))shiftd/< 

spatie>19 

710 goto87OXshiftd/<spatied72 

720 Kki=peek(1024th(bl)+dh+fat+4Oxvlbld): Kk2=peek(1024+thlbl)+dh+fat+4Ox(v(bl)+5)) Cs 

hift>/{spatied75 

730 goto870Xshift>/Xspatiedbe 

740 wemtskittdktknkdtkkkkkttkktkkkdkkkrtshiftd/<spatied43 

750 fa=O:goto65OXshift>/<spatieded 
remkkkkkkhhkhhkhtkkhkhktkktkkkkkkkshiftd/Lspatied75 
fa=5<shift>/<spatie>81 
ifbl=Oorbl=torbl=2orbl=4orbl=6orbl=Ithen80OXshift>/<spatieda3 
Ki=peek(1024+hC(bl)+40x(v(bl)}+dvìd:k2=32:goto87Oshift>/<spatiedba 
ifbl=Oorbl=lorbl=2orbl=6orbl=Ithen8304shiftd/{<spatiedb4 
Ki=peekC1024th(bl)+4Ok(vlbl)+dv)):k2=peekl1024th(bl)+5+40k(vlbld +dvd) shift, 

/<spatie>8f 

820 goto870Xshiftd/<spatie>81 

830 ifbl=ithen850Xshiftd/<spatiedal 

840 ki=peek(1024th(bl)+4Ok(v(bl)tdv+fa)):k2=32:goto87OSshift>/{spatie»99 

850 ki=peek( 1024+h(bl)+40%vlbl)tdvtfadd:k2=peek(1024thlbl)+5+40k(vCbld+dvtfaddg 

shift>/Xspatiedf?7 

860 goto870Xshiftd/{Cspatiede9 

870 ifkl=32orkl=IGandk2=32ork2=IGthen8IOSshiftd/spatiedd7 

880 goto5lOXshift>/<spatiedce 

890 remkxkkcontrole op grenzen kAxkkxCshift>/{<spatiedad 

900 hibl)>=h(bld+dh:vlbl)=vlbl)+dvgshift>/Cspatie>a3 

910 ifvCONd15orvliddiSorvl2dd15orvl6dd15orvlIddlSthenvlbld=15:gotol07OLshiftd/{s 

patie>25 

920 ifvC3)>20orvl4dd20orvl5d}20orvl7)d20orvlBd2Othenvlbl)}=20:gotol070Sshiftd/{s 

patie>32 

930 ifhCid>3Oorht4)>3Othenh(bl)=30:goto1070<shiftd/{spatie>7b 

940 ifhlbl)>35thenh(bl)=35:gotol070<shift>/{<spatie»35 

950 ifhlbl)C20thenh(bl}=20:goto1070<shift>/<spatie>2d 

960 ifvlbl)<Othenvbl)»=O;:gotol070Xshift>/<spatie>Sb 

970 remkkkkschrijvenkkkknkkkkkknkkkkkwtshiftd/<spatiedl2 

980 poke(wwtblkl0O+15),160Xshift>/{spatiedcd 

990 poke710,160:sysCwwtl0Okbl){<shift>/{<spatiedfb 

1000 poke710,1664shiftd/{spatied57 

1010 pokeCwwtblx10O0+15),(48tbl)<shiftd/<spatied75 

1020 poke(901+10%bl},vlbl)shiftd/{spatied2d 

1030 poket900+10xbl),hlbl)Xshift>/<spatiedcf 

1040 sys(ww+100xbl):poke646,OXshift>/{spatied37 

1050 ifge=tthenl090Xshift>/<spatie>bh 

1060 ifh(i)=25andv(id=l5thenl080Cshift>/<spatiedb7 


1070 a$="":z$=""i;goto5li<shift>/<spatied8c 
1080 ge=l:rem KkKAAAAAKAKKKGELukt<shift>d/<spatied26 


1090 gg=gg+i:forgg=Oto30O:neztgglshift»/{spatied79 

1100 ifgg<6then goto980<shift>/<spatie>59 

1110 printchr$(147):sforrs=ItoS:print:inext{<shift>/<spatied8c 
1120 printtab(12)“nog een keer? "<shift)/<spatie>5a 

1130 printtab( 12)" (j/n) “"&shiftd/<spatied74 

1140 getb$:;ifb$=""thenli40{<shiftd/<spatied71 

1150 ifb$="n"thenprintchr$(147):send<shift>/<spatie> lb 

1160 iìifb$>"j"thentiitôéshiftd/{spatied8f 

1170 runi00Xshift>/<spatie>2d 
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1180 remxxxxxinlezen etokkkkkkAkAkiktktshiftd/Cspat ie) 30 

1190 forq=Ôto30:reada:poke7O4tg,a:nextagshiftd/{spatie>4a 

1200 forq=0Oto39:reada:poke49152+g,a:snextgsshiftd/{spatie>5d 

1210 forq=Oto44:reada:poke492524tg,a:nexta{shift»/{spatiedse 

1220 forq=Oto39:reada:poke49352tg,a:nextgtshiftd/<spatied2b 

1230 forg=Ôto39:reada:poke49452+g,asnextg{shift>/{spatied26 

1240 forq=Oto39:reada:poke49552+g,asnextgishift»/{spatie>3l 

1250 forqg=Oto39:reada:poke49652+g,a:nertgéshiftd/{<spatied08 

1260 forq=Oto39:reada:poke49752+gsa:nextgíshift>/{spatie>07 

1270 forq=Ot0o39:reada:poke49852+g,a:nextg<shiftd/{spatied12 

1280 forq=Oto39:reada:poke49952tg,arnextg{shift>/{&spatiede4 

1290 forq=Oto39:reada:poke50052+g,arnextg<shift>/{<spatiedef 

1300 return<shiftd/{<spatied9f 

1310 rem XxX*data voor schrijfroutine<shift>/<spatie>dbb 

1320 data 232,24,32,240,255,169,166,32,210,255,206,232,3,208,248,206{shift>/{spa 
tie>b9 

1330 data 233,3,208,1,96,173,234,3,141,232,3,232,76,193,2<shift>/{<spatied8d 
1340 rem KkkALAK data voor blok Oéshift>/éspatie>b2 

1350 data 169,4,141,232,3,172,132,3,174,133,3,32,240,255,169,484shift>/<spati 
ede2 

1360 data 32,210,255,206,232,3,208,248,169,8,141,233,3,169,4,i4i<shiftd/<spati 
e>c7 

1370 data 232,3,141,234,3,76,192,2<shift>/<spatiedch 

1380 rem kkAAAAAK data voor blok I{shift>/{spatiedcl 

1390 data 169,9,141,232,3,172,142,3,174,143,3,32,240,255,169,49shiftd/<spatie 
»c6 

1400 data 32,210,255,206,232,3,208,248,169,8,141,233,3,169,9,141i<shift>/{spati 
ede2 

1410 data 232,3,141,234,3,169,7,141,134,2,76,192,2{shiftd/{<spatie>06 

1429 rem kAXAAX data voor blok 2<shift»/<spatie>2a 

1430 data 169,4,141,232,3,172,152,3,174,153,3,32,240,255,169,50Xshift>/<spati 
e>3b 

1440 data 32,210,255,206,232,3,208,248,169,8,141,233,3,169,4,14i<shiftd/{<spat 
ie>37 

1450 data 232,3,141,234,3,76,192,2&shift>/<spatie>3b 

1460 rem kxxxr data voor blok 3éshiftd/{spatiedl3 

1470 data 169,4,141,232,3,172,162,3,174,163;3,32,240,255,169,51<shiftd/<spati 
e>12 

1480 data 32,210,255,206,232,3,208,248,169,3,141,233,3,169,4,141i<shift>/{<spat 
ie>54 

1490 data 232,3,141,234,3,76,192,2<shift»/{spatie>43 

1500 rem kkkkKAK data voor blok 4&shift>/<spatie>56 

1510 data 169,9,141,232,3,172,172,3,174,173,3,32,240,255,169,52{shift»/<spati 
edd4 

1520 data 32,210,255,206,232,3,208,248,169,3,141,233,3,169,9,141&shift>/<spat 
ie>61 

1530 data 232,3,141,234,3,76,192,2{Xshift>/<spatied6b 

1540 rem KXXXXXAK data voor blok S<shift>/<spatieda6 

1550 data 169,4,141,232,3,172,182,3,174,183,3,32,240,255,169,53Xshiftd/{spati 
eda3 

1560 data 32,210,255,206,232,3,208,248,169,3,141,233,3,169,4,14l<shift>/{<spat 
ie>87 

1570 data 232,3,141,234,3,76,192,2shift>/XspatiedbO 

1580 rem kkkAAAAK data voor blok 6Sshiftd/<spatie>8d 

1590 data 169,4,141,232,3,172,192,3,174,193,3,32,240,255,169,544shift»/{<spati 
edc 

1600 data 32,210,255,206,232,3,208,248,169,8,141,233,3,169,4,141l<shift>/<spat 
iedd4 

1610 data 232,3,141,234,3,76,192,2<shift»/<spatie»d8 

1620 remk%kkkkkkK data voor blok 7<shift»/<spatiedde 

1630 data 169,4,141,232,3,172,202,3,174,203,3,32,240,255,169,55<shift>/<spati 
e>f5 

1640 data 32,210,255,206,232,3,208,248,169,3,141,233,3,169,4,14l<shiftd/{Xspat 
iedf7 

1650 data 232,3,141,234,3,76,192,2shiftd/<spatiede0 

1660 remkkkkkk data voor blok 8<shift>/<spatie>d3 

1670 data 169,4,141,232,3,172,212,3,174,213,3,32,240,255,169,56{shift>/{spati 


ese 

1680 data 32,210,255,206,232,3,208,248,169,3,141,233,3,169,4,14l<shift>/<spat 
iedOf 

1690 data 232,3,141,234,3,76,192,2<shiftd/<spatied08 

1700 remkkxkx data voor blok 9shift>/{spatied20 

1710 data 169,4,141,232,3,172,222,3,174,223,3,32,240,255,169,57<shift>/<spati 
e>07 

1720 data 32,210,255,206,232,3,208,248,169,8,141,233,3,169,4,14l&shift>/<spat 
ied2c 


1730 data 232,3,141,234,3,76,192,2<shiftd/<éspatie>50 
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Maandelijkse rubriek met listings van programma’s die het waard zijn in uw Ben Die te worden opgenomen. Alle 


programmaregels zijn voorzien van een controle-getal, voora 
streep moet u niet intikken, maar u dient tegelijkertijd de shiit- 


SPRITES, BEKIJK ZE MAAR 


SPRITE HUNTER van Peter 
Kuipers is een programma waar- 
mee sprites op een eenvoudige 
manier bekeken en onderzocht 
kunnen worden. 


Hierbij bent u volkomen onaf- 
hankelijk van de diverse 
VIDEO-BANKS, beeld- 
opslagplaatsen, waarin de spri- 
tes zich bevinden. Op deze ma- 
nier is het bijvoorbeeld mogelijk 
om na een RESET de sprites 
van commerciële spellen eens te 
onderzoeken. 


SPRITE HUNTER kent een 
aantal commando’s. Zo kunt u 


SPRITE HUNTER LISTING 


5 rem 
10 printe 


a kuipers 


door middel van de functietoet- 
sen door de vier video-banken 
van elk 16K en door de 255 
sprites per bank ‘bladeren’. Ook 
is het door middel van de funk- 
tietoetsen mogelijk om de 
MULTICOLOR-mode te kiezen. 
Verschillende kleuren kunnen 
daarmee op een zeer eenvoudige 
manier worden ingesteld. 

Met behulp van het ’D’- 
commando kunt u de data die 
bij de op het scherm aanwezige 
sprite horen, laten printen. Dit 
kan op het televisiescherm of op 
de eventueel aangesloten 
Commodore-printer (of elke an- 
dere printer welke is voorzien 


1985%*kkshiftd>/Sspatie>9ga 
r$(147)chr$(159):poke650,128:forx=896to30shi 


15 reada:pokex,asnext{shift)/{spatiede9 


20 datal62,0,189,0,0,157,64,3,232,224,63,208,245,96{shift»/<spatie»88 


fge 


f 


gaan door (shi 


t/ 


spatie). Die woorden, de haakjes en de schuine 


gets en de spatiebalk in te drukken. Het controle-getal zelf 
bestaat uit twee letters of twee cijfers of uit een letter en een cijfer. Het programma dat het controle-getal voor de computer 
begrijpelijk maakt, vindt u in Commodore Dossier 1. 


van een interface en de juiste 
software). 

Het ’V’ (Verzet)-commando 
helpt u met het uitkiezen van 
een bepaalde sprite in een door 
u te bepalen geheugenbank. Zo 
kunt u op eenvoudige wijze 
door de diverse geheugengedeel- 
ten heenwandelen. 

Tot slot kunt u met de X en Y 
commando’s de horizontale en 
verticale expansie van de sprites 
regelen. 


HET PROGRAMMA 

SPRITE HUNTER is zeer syste- 
matisch opgezet. Er wordt ge- 
bruik gemaakt van een korte 


25 v=53248:d=die=2ic=6G:f=0O:p=O{shiftd/<spatied29 
30 u=O:y=likelspokev+32,11l:pokevt+33,0:pokev,57:poke53272,21<shiftd/<spatied9f 
35 pokev+1,85:pokev+23,y:pokev+29,x<shiftd/<spatie>53 
40 poke2040,13:pokev+21,1t:pokev+37,4:pokev+38, 4:pokev+39,7:;gosub6I0shiftd/<spat 


iedif 


50 poke198,O:printchr$tig9chrst1i7dechrs17}sspel13)<shiftd/<spatier52 
55 printchr$(19dechrsl17dlchrs 17)" 


oe 


Mp rehes 01978 


machinecode-subroutine om de 
sprites in een apart stukje ge- 
heugen te zetten, waarna ze be- 
keken kunnen worden. Het 
BASIC-hoofdprogramma 
bestaat uit een aantal subrouti- 
nes, welke vanuit het menu dat 
u rechts op het scherm ziet, 
worden aangeroepen. 

Vergeet u dit programma niet 
eerst te SAVEn voordat u het 
voor het eerst RUNt. Dit in ver- 
band met de POKEs en de ma- 
chinecode, die een computer 
kunnen laten vastlopen als ze 
een fout bevatten. 

En dan is al uw intoetswerk uit- 
eraard voor niets geweest. 


ft>/<spatiede7 


“<shift>/<spatieda3 


60 printchr$(17)chr$(17)chrs(1i7dchrs$(17dchrs$(17)chrst17dchr$17dchrs17ds <shiftd 


/Xspatied9e 
65 print” 


80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
215 
220 
230 
240 
250 


geheugen” <shiftd/<spatiedee 
70 printtab(4dsllschr$(157)" 
ifa$=chr$(133)}thengosub230<shift>/<spatiede0 
ifa$=chr$(134)thengosub250lshiftd/{spatiedeb 
ifa$=chr$(135)thengosub270<shiftd/{<spatie»d6 
ifa$=chr$C(136)thengosub290tshift>/{spatieddl 
ifa$=chr$(137)thengosub3l04shift»/<spatiedcf 
ifa$=chr$(138)thengosub340<shift>»/<spatied3f 
ifa$=chr$(139)thengosub36OX<shift>»/<spatied32 
ifa$=chr$C140)}thengosub380<shiftd/<spatied28 
ifa$="v"thengosub400<shiftd/<spatiedbd 
ifa$="d"thengosub5iOéshift»/éspatiedac 
ifa$="x"thengosub870<shiftd/{spatieda5 
ifa$="y"thengosub890Xshift»/<spatieha0 
goto5û{shiftd/{spatied44 
ll=fkx16384tpk64:hb=int(11/256)<shift>/<spatieddc 
lb=ll-(hbx256):poke900O,hb:poke899,lbshiftd/{spatied53 
sys896:return<shift>/<spatie>cl 
p=ptisifp=256thenp=O:f=fti:iff=4thenf=0OCshiftd/<spatiedd9 
gosub2ltOsreturn<shiftd/<spatiedfa 
p=p-i:tifp=-lthenp=255:iff=-lthenf=3Xshift>»/<spatie>d3 


COMMODORE DOSSIER AKTIEF 10 


“:gosub9tO4shiftd/éspatiedlkb 








gosub2Zl0:return{<shiftd/{<spatiehOf 
f=ftl:siff=4thenf=0Cshiftd>/{spatied34 
gosub2l0sreturn<shift»/{spatie>13 
f=f-l:iff=-lthenf=3(shiftd/{spatiedb4 
gosub2lOsreturn<shift»/<spatie>27 
ifu=Othenu=l:goto330Xshift»/<spatie»99 
u=0<shiftd/<spatied96 
pokev+28,u:return<shift»/{spatiede7 
czectl:rifc=l6thenc=0{shiftd»/éspatie>5d 
pokev+39,crreturn<shift»/{<spatiedeb 
d=dtl:ifd=l6thend=0{shiftd/{spatied6l 
pokev+37,drireturnéshiftd/<spatied>cO0 

380 ez=etl:ife=lG6thene=0Xshiftd/{spatied75 

390 pokev+38,e:return4shift>/&spatied3a 

400 ri$="":forx=ltol9:ireig=ri$tchr$(17)d:next{shift>/<spatiedf2 

402 r2$="":forx=ltol7:r2f=r2$tchr$(29d:nextishift>/<spatie>fO 

405 printchr$(19)risr2s"verzet:";s{4shift>/<spatiedch 

kie blenden 

e>Oc 

412 printechr$(157)echr$(157)"bank (O-3)"s{Xshift>/{spatie>36 

415 inputf<shift»/{spatied5d 

420 printtab(17)3{<shift>/<spatie>8b 

430 input”sprite (0-255)"spéshift>/{spatied46 

440 iff<O or f>3thenf=O{shift>/{spatiede0 

450 ifplO or p>255thenp=OXshift>/{spatied8d 

460 gosub21i0<shift»/<spatie>73 

470 printchr$(19)ris" “<shiftd/{<spatiedc7 

480 printtab(15)s" "<shift>/{<spatiedcd 

490 printtab(15)5;" "<shift>/<spatiede7 

500 return<shiftd/<spatied7b 

510 gosub68O:printchr$(1i9dchrsC17)stabl18)s<shiftd/<spatied62 
print“printer (j/n)”<shiftd/<spatieddf 
gosub9iO<shiftd/<spatiedas 
ifa$="j"then5704shiftd/{spatied9d 
ifa$="n"then640<shiftd/<spatieda3 
goto530{shiftd/{spatied8d 
printtab(18)5s:input”sprite naam"sc$:openi,4:print##l,c$s<shift>/{spatiedbf 
print&l,“: bank"3f3" sprite"sp:ifu=lthenprint#t, “multicolour"<shiftd/{<spat 

ieddf 

590 forqg=0 to 20:forw=0 to 2Xshift>/{<spatied40 

600 print#l,peek(8324+qx3twds","s<shiftd/<spatied90 

610 nextw<shiftd/<spatie>b5 

620 nextg:printt#l,peek(832+qk3twtidssprinttl,".":print#lsclosel<shiftd/<spati 

e>68 

630 gosub690sreturn<shiftd/{spatied72 

640 printtab(18)i:forg=0 to 20:forw=0 to 24shift»/{spatie>95 

650 printpeek(B32+qk3twds","sCshiftd/Cspatied5e 

655 ifg=2O0andw=2thenprintchr$(157)chr$(157)","s-l:igoto67OXshift>/{spatiedae 

660 nextw:iprint:iprinttabll8):nextg:printtab(20)}; "raak een toets“<shift>/<spat 

ie»37 

670 printtab(20); "raak een toets":gosub910:gosub69Orreturn<shiftd/{<spatied0b 

680 printcehr$&(147);s:fory=0 to 23:printtab(i5)sspel24dsnext:return<shiftd/{spat 

iedaa 

690 gosub680sk=15sprintehr$C(19)s Cshiftd/<spatie)92 

700 printtab{3)chr$(157)chrst157)echrsl1l7) "bank sprite “;s<shift>/<spatie)da 

705 printchr$(145)" “chr$(194)Xshiftd/<spatied76 
printtab(k)schr$(194)" fl=sprite +1"<shift>/{spatie>04 
printtab{k)schrs(194)” f3=sprite -1"<shiftd/éspatiedl6 
printtab(k)schr$(194)" fS=bank +1"<shift>/{spatiedl3 
printtab{k)schr$(194)" f7=bank -1"{<shift>/{spatied29 
printtab(k)schrs(194)<shiftd/{éspatied75 
printtab{k)ichr$(194)" f2=multicolour aan/uit”"<shift>/<spatiedd42 
printtab(k)ichrs(194)” f4=sprite Kleur" <shift>/<spatie>9b 
printtab(k)schr$(194)" f6=multi-colour #O"Cshiftd/<spatiedad 
printtab(k)ichr$(194)” f8=multi-colour #1" <shift>/<spatiedbli 
printtablk)schr$(194)shiftd/{<spatiedba 
printtab(k)ichr$(194)" v=verzet bank/sprite"{<shiftd/{spatiedf1 
printtab(k)ichr$(194)” d=print sprite-data"<shift>/{spatiedb2 
printtab{kdschr$(194)" x=grootte horizontaal"Xshiftd/{spatiebce 
printtablk)ichr$(194)" y=grootte verticaal”<shift>/<spatiedb5 
r3g=""sforx=lto2d:r3$=r3$tcehr$(192)dsnextishiftd/Cspatied02 
printtablk)schr$(173)r3$<shiftd/{spatie»81 
return<shift>/<spatieddl 
ifz=lthenx=O:pokev+29,xsreturn<shift>/<spatie>d2 
x=l:pokev+29,xsreturnéshiftd/{spatie>32 
ify=ltheny=O:pokev+23,;y:return<shift>/<spatiedc5 
y=l:pokev+23,y:returnéshiftd/{spatiedcc 


geta$:ifa$=""then9l04shiftd/<spatiedbO 
return<shift»è/<spatie>15 
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MUZIEK-INTERRUPTS 
OP DE GOMMODORE 64 


door Roelf Sluman 


Waarschijnlijk heeft u wel eens 
met bewondering naar de ach- 
tergrondgeluiden van de diverse 
spelletjes geluisterd. Een zeer 
groot aantal van de huidige 
computerspellen is zelfs voor- 
zien van een complete muzikale 
begeleiding, die gewoonlijk 
blijft ‘doorspelen’, ongeacht wat 
er op het scherm gebeurt. 

Het BASIC van de Commodore 
64 beschikt niet over de moge- 
lijkheden om de computer, tij- 
dens het spelen van de muziek, 
eenvoudig iets anders te laten 
doen. Dit in tegenstelling tot 
bijvoorbeeld MSX BASIC, waar 
er, door middel van het 
’PLAY’-commando, complete 
muziekstukken op de achter- 
grond klinken, terwijl er daar- 
naast ook nog eens een BASIC- 
programma wordt geRUNd. 
Commodore 64 bezitters hoeven 
echter niet te wanhopen, want 
ook op hun computer kunnen 
BASIC-programma’s vergezeld 
worden van een stukje automa- 
tisch spelende muziek. Dit is te 
realiseren met behulp van zoge- 
naamde INTERRUPTS. Het 
uitgebreide programma dat u 
hieronder vindt, maakt gebruik 
van een INTERRUPT-techniek. 
Hoewel het geheel in machine- 
code is geschreven, heeft u geen 
machinetaal-kennis nodig om 
het programma vanuit BASIC 
toch te kunnen gebruiken. 


VOORBEELD 1 


WAT ZIJN INTERRUPTS ? 

In feite is een interrupt niets 
meer of minder dan een op- 
dracht aan de computer: ’stop 
waar je mee bezig bent, om 
eerst even iets anders te doen’. 
De Commodore 64 krijgt 
minstens 60 keer per seconde 
een dergelijke interrupt. Deze 
zorgt er onder andere voor dat 
de cursor blijft knipperen en 
dat bijvoorbeeld de tijd (ti$) 
wordt bijgewerkt. 

Het machinetaalprogramma dat 
zich in het ROM van de ’64 be- 
vindt zorgt er dus voor dat de 
computer het knipperen van de 
cursor en dergelijke zaken re- 
gelt. En nu komt de grap: het is 
mogelijk om de computer, voor- 
dat hij met zijn eigen interrupt- 
bezigheden begint, eerst even 
een door ons gewenst klusje te 
laten opknappen, en dat dus 60 
keer per seconde! Op deze ma- 
nier kunnen we bijvoorbeeld el- 
ke zestigste seconde de rand- 
kleur laten veranderen. Dit doen 
we door (in machinecode) de 
computer opdracht te geven om 
elke zestigste seconde EERST de 
randkleur te veranderen, voor- 
dat er aan de ROM-interrupt- 
routine begonnen mag worden. 
Toetst u voor de aardigheid het 
korte programma dat u onder 
VOORBEELD 1 vindt maar 
eens in. U zult zien dat u na het 
RUNnen ervan (eerst saven!) 


10 forx=49152to49170Lshiftd/<spatiedcS5 


20 
30 
40 
50 
60 
70 
80 
90 


read y:pokex,y:next{<shift>/<spatiedf2 
sys49152<shift>/<spatie>bb 

data 120,169,13,141,20,3,169,192,141,21,3,88,96éshift>/<spatiedae 
data 238,32,208,76,49,234<shift>/{spatieda6 
rem XXXxxxCshiftd/<spatie>b3 

rem source=listing:{shiftd/{<spatied81 

ren seig<shift>/{<spatie>80 

rem lda #Xnieuweirg<shift>d/Cspatiedcc 


een automatisch veranderende 
randkleur krijgt, terwijl u ge- 
woon in Basic kunt blijven pro- 
grammeren, of programma’s 
kunt RUNnen. Ook na een 
NEW verandert er niets, omdat 
het hier om een machinetaalpro- 
gramma gaat, dat op een be- 
schermde plaats in het geheugen 
is opgeborgen. Dit machinetaal- 
programma voert dus de volgen- 
de opdrachten uit: 

[A] vertel de computer dat hij 
voortaan, VOORDAT er aan 
z’n eigen interrupt begonnen 
wordt, eerst het programma [B] 
even moet uitvoeren. 

[B] verander de randkleur, ga 
daarna naar de eigen interrupt- 
routine van de computer 

U ziet dat dit niet zulke gecom- 
pliceerde opdrachten zijn. Van- 
daar dat het machinetaalpro- 
gramma ook zeer kort is: 19 
bytes. 


HET MUZIEKPROGRAMMA 

Ook de grote listing maakt, zo- 
als we al vertelden, gebruik van 
een interrupt. Elke zestigste se- 
conde wordt er gekeken of er, 
in een van de twee stemmen, 
een volgende noot gespeeld 
dient te worden. Deze noot 
wordt eventueel gespeeld, of er 
wordt verder ’afgeteld’, totdat 
de tijdsduur van de vorige noot 
verstreken is. 

Hoewel er sprake is van een be- 
hoorlijk lang programma (onge- 
veer 2K machinecode) is het ei- 
genlijke interrupt-gedeelte zeer 
kort. 

Het overgrote deel wordt op 


geslokt door de muziek-data 
voor een tweestemmig mu- 
ziekstuk van 34 maten. De mu- 
ziekgeïnteresseerden kunnen we 
nog vertellen dat het hier gaat 
om de 8e tweestemmige ’Inven- 
tion’ van Bach. 

Nadat u het programma heeft 
ingetoetst, geSAVEd en ge- 
RUNd, wordt het machinetaal- 
programma in het $c000 blok 
gezet. Dit is een stuk geheugen 
dat volledig van Basic is afge- 
schermd. Een Basic-programma 
kan de inhoud van dit blok dus 
niet beschadigen. 

Het inPOKEn van de data 
duurt even en wordt op het 
scherm gesymboliseerd door het 
afdrukken van punten. 

Na het inPOKEn wordt er een 
SYS-commando gegeven. Dit 
commando geeft de computer 
opdracht om het machinetaal- 
programma dat zich nu op 
49152 bevindt, uit te gaan voe- 
ren. Dit mc-gedeelte doet het 
volgende: scherm schoon en 
openingsboodschap, computer 
vertellen dat er een nieuwe in- 
terrupt is en daarna weer terug 
naar Basic. Vanaf nu kunt u uw 
eigen programma’s gaan intoet- 
sen en/of RUNnen, terwijl u op 
de achtergrond Bach hoort. 
Een RUN STOP/RESTORE 
schakelt het machinetaalpro- 
gramma uit. U kunt het vervol- 
gens weer opstarten door op- 
nieuw SYS 49152 te geven. 


100 
110 
120 
130 
140 
150 


rem 
ren 
rem 
ren 
rem 
rem 


sta $O314<shiftd/Cspatied8f 

lda #)>nieuweirg<shift>/<spatiedfa 

sta $0315{shiftd/{spatied92 
clig<shift>/&spatie>db 
rts<shift>»/{spatied56 
kkkkCshiftd/Cspatiedlg9 

160 rem nieuweirg inc 53280<shift>/{spatie>18 
170 ren jmp $ea3i<shift>/<spatie>50 


MUZIEK-INTERRUPT LISTING 


O rem muziek-interrupt roelf sluman 1985<shift>/{spatiedbf 


10 b=O:fori= 49152 to 51386<shift>/<spatied2c 
20 reada:pokei,a:b=bta:print"."“3:nezt{shiftd/{spatie>36 


30 1fb<>162584thenprint"sorry, data-error"send<shift>»/{spatied71 
40 sys 49152Cshift>/Cspatied8d 
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40 sys 49152shift>/{spatie>8d 


100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 





data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


162,024,169,073, 141<shift>/{spatie>da 
023,200,041,065,009{shift>/{spatie>d6 
188,141,024,200,169{Xshiftd/{spatiedd2 
000,157,000,212,2024shift>/<spatie>c2 
016,250,120,173,020éshift»/{spatiedcf 
003,141,252,207,1734shift>/<spatie>ec 
021,003,141,253,207{<shiftd/<spatie)34 
169,099,141,020,003<shift>/Cspatied3f 
169,192,141,021,0034shift>/<spatie>3f 
169,001,141,254,207<shiftd/éspatie>2f 
141,255,207,169,015<shift>/{spatie>2c 
141,024,212,169,033<shift>/{spatie>25 
141,004,212,169,033Xshift>/{spatiedlc 
141,011,212,169,240<shift>/<spatiedib 
141,006,212,169,128{<shift>/<spatiedif 
141,013,212,169,223<shift>/<spatiedl6 
133,251,169,192,133Cshift>/{spatied05 
252,169,103,133,253Cshift>»/Cspatie>06 
169,196,133,254,088{shift>/{<spatiedOf 
032,250,199,096,072&shift>/<spatie>7d 
138,072,152,072,173<shift>/éspatie>72 
254,207,201,001,240Xshift>/<spatied7c 
O16,206,254,207,173<shift>/<spatied61 
255,207,201,001,240Xshift>/<spatied67 
043,206,255,207,076<shift>/{<spatie>ba 
196,192,160,000,177<shift>/<spatied50 
251,240,071,141,254Cshiftd/{<spatied54 
207,200,177,251,141<shift>/<spatie>Sc 
000,212,200,177,251&shift>/<spatie>47 
141,001,212,024,165<shift>/<spatie>46 
251,105,003,133,251<shift>/{spatie>4f 
165,252,105,000,133Xshift>/éspatiedde 
252,076,114,192,160<shift>/{<spatiedbb 
000,177,253,141,255<shift>/<spatie>b8 
207,200,177,253,141igshift>/{<spatiedba 
007,212,200,177,253<shift>/<spatie>a0 
141,008,212,024,165<shift>/<spatieha3 
253,105,003,133,253{shift>/<spatieda9 
169,000,101,254,133<shift>/<spatie>9c 
254,104,168,104,170Cshift>/{spatied9f 
104,076,049,234, 169Xshift>/{<spatie>9c 
223,133,251,169,192<shift>/<spatie>83 
133,252,169,103,1334shift>/{<spatied8d 
253,169,196,133,254Xshift>/<spatie»8f 
076,196,192,020,000Xshift>/<spatie>f5 
000,020,096,022,0204shiftd/éspatiedf8 
049,028,020,096,022<shift>/<spatie>f2 
020,135,033,020,096(shift>/{spatiedf5 
022,020,193,044,010Xshift>»/{spatiedee 
062,042,010,162,037{<shift>/{spatiede9 
010,135,033,010,162<shift>/{spatiedee 
037,010,135,033,010&<shift>»/<spatie>d2 
223,029,010,049,028<shiftd/{spatiedd4 
010,223,029,010,049shift>/<spatiedda 
028,010,030,025,0204shift>/<spatie>cd 
096,022,020,049,028<shift>/<spatiedcf 
020,135,033,020,049shiftd/{spatiedcd 
028,020,193,044,020Cshift>/{spatied32 
135,033,010,099,056<shift>/{<spatied31 
010,015,067,010,190Sshift>/<spatie>34 
059,010,015,067,0104shift>/{spatied2b 
099,056,010,015,067<shiftd/<spatie>20 
010,190,059,010,015<shift>/{spatie>28 
067,010,099,056,010Cshift>/{spatied2f 
015,067,010,190,059<shift>/{spatie>16 
010,015,067,010,193Xshift»/{spatied15 
044,010,099,056,010Cshift>/{spatiedlf 
060,050,010,099,056shift»/<spatie>00 
010,193,044,010,099Xshiftd/Cspatie>0l 
056,010,060,050,010<shift>/<spatie>0f 
099,056,010,193,044Lshift>/<spatie>79 
010,099,056,010,060Cshift>/Xspatied70 
050,010,099,056,010<shift>/<spatie>78 
162,037,010,193,044<shift>/<spatie>68 
010,062,042,010,193X<shiftd/<spatied6d 
044,010,162,037,010<shift>/<spatie>68 
193,044,010,062,042&shift>/{spatie)dSa 
010,193,044,010,162{shiftd/{spatied59 
037,010,193,044,010Sshift>/<spatie>57 
062,042,010,193,044Cshift>/Xspatied55 


020,165,031,020,030Xshift»/{spatie»45 
025,020,162,037,020{shiftd/{spatied4d 
165,031,020,193,0444shift>/{spatie>45 
020,162,037,010,060Cshift>/{spatie>hb6 
050,010,099,056,010{shift>/{spatiedbf 
060,050,010,193,044<shift>/<spatie>b5S 
010,062,042,910,193<shift>/{spatie>aa 
044,010,062,042,010Cshift>/{spatie>a4 
162,037,010,135,033{shiftd/{spatiedaa 
010,162,037,010,135<shift>/{<spatied96 
033,010,223,029,020Cshift>»/{spatie>9c 
049,028,010,162,037Xshift»/<spatie>9d 
010,135,033,010,165{<shiftd/{spatied84 
031,010,135,033,0104shiftd/{Xspatie>81 
165,031,010,049,028<shift>/<spatie>8d 
010,030,025,010,049Xshift>/<spatie>87 
028,010,030,025,010<shift>/{<spatie>fb 
096,022,010,031,021{shift>/{spatiedf7 
010,096,022,010,031Xshift>/{spatiedf2 
021,010,209,018,020Xshift>/{spatiede0 
195,016,010,135,0334shift>/<&spatiede5 
010,165,031,020,135<shiftd/{spatiede8 
033,020,031,021,020<shift>/{spatie>d2 
096,022,020,135,033shift»/<spatieddc 
020,031,021,020,135<shift>/éspatieddb 
033,020,209,018,020Cshiftd/<spatiedc2 
165,031,040,135,033<shift>/{spatiedc4 
080,000,000,020,000Sshift>/<spatie>c0 
000,020,135,033,0204shift>/{spatie>36 
062,042,020,135,033<shiftd/{spatie>33 
020,060,050,020,135<shift>/{<spatied3f 
033,020,015,067,010Xshift>/{spatie>38 
075,063,010,099,056<shift>/{spatie>20 
010,060,050,010,099%shift>/Sspatie>2b 
056,010,060,050,010<shift>»/{spatied2f 
193,044,010,062,042<shift>/<spatiedla 
010,193,044,010,062{<shiftd/<spatie>16 
042,010,162,037,010Cshift»/<spatied ib 
135,033,010,223,029Xshiftd/<spatiedOd 
010,135,033,010,099shiftd/spatied0Ol 
056,010,135,033,010<shift>/<spatie>09 
099,056,010,223,029shiftd/spatied7a 
010,099,056,010,135<shift>/<spatied73 
033,010,099,056,010<shift>/<spatie>79 
049,028,010,099,056<shift>/Cspatied64 
020,223,029,020,030Xshiftd/{spatied6f 
025,020,223,029,020<shift>/<spatie>64 
030,025,020,162,037Xshift>/Cspatie>69 
020,030,025,020,060{shift»/{spatied57 
050,010,193,044,010<shiftd/<spatie>56 
223,039,010,162,037Xshift>/{spatied56 
010,223,039,010,162<shift>/{spatied4e 
037,010,135,033,010&shift>/<spatie>da 
223,029,010,135,033Cshift>/<spatied42 
010,223,029,010,049shift>/<spatiedb7 
028,020,030,025,020<shift>/<spatie>b9 
223,029,020,162,037{Xshift>/{spatiedb7 
020,223,029,020,060Xshift>/{spatiedaf 
050,020,162,037,020{shift>/{<spatie>a2 
190,059,020,134,035<shift>/{<spatiedad 
020,190,059,020,134shift>/<spatie>92 
035,020,190,059,020Xshift>»/{spatied97 
134,035,020,162,037<shift>/<spatie»99 
020,049,028,020,193<shiftd/<spatie>93 
044,020,162,037,020Xshift>/{spatied85 
099,056,020,193,044shift>/<spatie>83 
010,060,050,010,193Xshiftd/{spatie>86 
044,010,060,050,010{shift>/<spatiedfO 
190,059,010,135,033shift>/<spatie>fa 
010,190,059,010,1624shiftd/{spatie>fc 
037,010,190,059,010Sshift>/{spatiede2 
062,042,010,190,059shiftd/{spatiede0 
010,135,033,010,190Xshift>/{<spatiede3 
059,010,193,044,010&shift>/<spatiedd6 
062,042,010,193,044<shift>/{<spatiedde 
010,099,056,010,165<shift>/<spatie>da 
031,010,099,056,010Sshift>/Xspatie>cl 
134,035,010,099,056shift>/<spatie>c7 
0109,162,037,010,099shift>/<spatiedch 
056,010,165,031,010Sshift>/<spatie>cc 
099,056,010,062,0424shift>/<spatied34 
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010,162,037,010,062<shift>/{spatie>3c 
042,010,960,050,010<shift>/éspatie>3b 
049,028,010,060,050Cshiftd/éspatied26 
010,165,031,010,060{shift>/{spatied2e 
050,010,134,035,0104shift>/{spatie>28 
060,050,010,049,0284shift>/<spatie>17 
010,060,050,020,193Xshift>/{<spatie>lc 
044,020,162,037,0204shift>/<spatie> ld 
223,029,020,162,037<shiftd/éspatie0a 
020,030,025,020,193Xshiftd/{spatie>09 
044,020,062,042,0204shift>/{spatie>09 
135,033,020,049,028{4shift>/<spatied72 
020,135,033,020,096shift>/<spatied7d 
022,020,223,039,010&shift>/éspatie>70 
162,037,010,193,044lshift>/{spatied74 
010,223,039,010,193<shift>/{spatie>66 
044,010,162,037,0104shift>/{spatied68 
193,044,010,223,039{shift>/<spatied6d 
010,193,044,010, 162&shift>/{spatie>5d 
037,010,193,044,010Cshift>/<spatie>57 
223,039,010,193,044lshift>/<spatiedbe 
010,223,029,010,162shift>»/éspatieddf 
037,010,135,033,010<shift>/<spatiedd44 
162,037,010,223,029shift>/Cspatied4d4 
010,162,037,010,135<shift>/<spatie>b0 
033,010,162,037,010shift>/éspatie>b0 
223,029,010,162,037<shift>»/{spatie>b4 
010,135,033,010,162(shift>/éspatie>a5 
037,010,030,025,010<shift>/<spatieda2 
223,029,010,049,028<shift>/{spatieda3 
010,223,029,010,030Cshift>/{spatieda3 
025,010,223,029,010Xshift>/<spatie>9c 
049,028,010,223,029{<shift>/{spatied90 
010,030,025,010,223{Xshift>/{spatie>9e 
029,010,049,028,010Cshift>/<spatie»88 
223,029,020,031,021<shift>/éspatie>84 
020,195,016,020,030<shift>/<spatie>83 
025,020,031,021,020&shift>/&<spatie>f3 
223,029,020,030,025{Xshift>/<spatiedfe 
010,135,033,010,162<shift»/{spatie>f9 
037,010,135,033,010<shift>/<spatiede5 
223,029,010,049,028Cshift>/<spatiedef 
010,223,029,010,049Xshiftd/<spatiede9 
028,010,030,025,010<shift>/<spatie>d9 
096,022,010,030,025<shift>/{Xspatie>d8 
010,096,022,010,239Sshift>/<spatie>da 
019,020,209,018,010Cshift>/Cspatieddi 
030,025,010,096,022<shift>/<spatie>c9 
010,031,021,010,096shift>/<spatiedc0 
022,010,031,021,0104shift>/{spatie>c8 
209,018,010,195,016shift>/<spatie> 3d 
010,209,018,010, 1954shift»/&spatie>30 
016,010,239,014,010Cshiftd/{spatied30 
024,014,010,239,014tshift>/<spatied2a 
010,024,014,010,143Cshift>/<spatied25 
012,020,048,011,0104shift»/{<spatie>27 
096,022,010,031,021&shift>/<spatie>19 
020,096,022,020,024shiftd/{spatie>18 
014,020,239,014,020<shift>/<spatie>14 
096,022,020,024,014<shift>/<spatie>09 
020,096,022,020,143<shift>/<spatie>Ob 
012,020,031,021,005<shift>/<spatie>08 
024,014,005,195,016shiftd/<spatie>04 
030,096,022,080,000Xshift>/<spatie>77 
000,000,120,000,000Lshift>/<spatied7d 
020,000,000,020,048{4shiftd/<spatied75 
011,020,024,014,020<shift>/<spatie>67 
048,011,020,195,016Cshiftd/éspatied6b 
020,048,011,020,096shift>/<spatied69 
022,010,031,021,010Xshift>/éspatied54 
209,018,010,195,016shiftd/{spatied59 
010,209,018,010,195<shift>/<spatie>54 
016,010,239,014,010<shift>/<spatie>d4c 
024,014,010,239,0t4shift>/éspatiedde 
010,024,014,010,143<shift>/<spatie>49 
012,020,048,011,020Cshift>/<spatie>b9 
024,014,020,195,016<shift>/{<spatie>b8 
020,024,014,020,096£<shift)/<spatie>b0 
022,020,195,016,0104shift>/éspatiedb0 
049,028,010,135,033<shift>/<spatie>a3 
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010,223,029,010,135<shift>/{spatie>a0 
033,010,049,028,010Cshift>/{Xspatiedaf 
135,033,010,223,029Xshift»/<spatie>9b 
010,135,033,010,049X4shift>/{spatie>94 
028,010,135,033,010&shift>/<spatie>96 
223,029,010,135,033Xshift>/{Cspatie>8a 
010,096,022,010,049Xshift»/{spatied83 
028,010,030,025,010{shift»/{Sspatie>84 
049,028,010,096,0224shift)/{spatiedfe 
010,049,028,010,030&shift>/<spatiedf4 
025,010,049,028,010Sshift>/<spatiedfd 
096,022,010,049,028Cshift>/{spatiedef 
010,030,025,010,049shift»/Sspatiedea 
028,010,209,018,010Xshift>/{spatieded 
096,022,010,031,021<shift»/Cspatiede6 
010,096,022,010,209Xshiftd>/{spatie>d6 
018,010,096,022,010&shift>/Cspatie>d9 
031,021,010,096,0224shift>/{spatiedd7 
010,209,018,010,096<shift)/<spatiedc8 
022,010,031,021,0104shift>/<spatiedcf 
096,022,020,210,015<shift>/<spatiedcl 
020,143,012,020,1954shift>/{spatie>3c 
016,020,143,012,020Xshift>/<spatie>33 
031,021,020,195,016<shift>/{spatie>33 
010,096,022,010,030Cshift>/<spatie>2b 
025,010,096,022,010Sshift>/<spatie>28 
031,021,010,209,018<shift>/<spatied2f 
010,031,021,010,209Xshift>/Xspatie>ic 
018,010,195,016,010<shiftd/<spatie>10 
210,015,010,195,016<shiftd/<spatie> 10 
010,210,015,010,024<shift>/<spatie>18 
014,020,143,012,0104shift>/<spatie>0l 
195,016,010,210,015<shift>/{spatied03 
010,024,014,010,210{shiftd/<spatie>08 
015,010,024,014,010<shift>/{spatied72 
143,012,010,048,0i1{shiftd/<spatie>76 
010,143,012,010,048<shift>/{spatied72 
Ol1,010,143,010,0104shift>/<spatie>63 
104,009,010,143,010Cshiftd/{spatied6b 
010,104,009,010,097Sshift>/<spatie>68 
008,010,143,012,010<shift>/<spatied5a 
048,011,010,143,010Cshift>/<spatiedSa 
010,048,011,020,143{<shiftd/<spatie>54 
012,020,071,006,020<shift>/<spatie>4S 
000,000,020,097,008&<shift>/<spatie>47 
020,143,010,020,097<shift>/<spatied45 
008,020,143,012,020<shiftd/{spatied44 
097,008,020,195,O016<shift>/<spatiedbf 
010,210,015,010,024<shift>/<spatiedbd 
O14,010,143,012,0104shiftd/{spatiedbb 
024,014,010,143,012<shift>/<spatiedal 
010,048,011,010,1434shift>/{spatieda7 
010,010,048,011,010X<shift>/{<spatieda5 
143,010,010,104,009Xshift>/éspatied9d 
020,097,008,020,1434shift>/<spatie>92 
010,020,143,012,020Xshift»/{spatie>9d 
143,010,020,195,016<shift>/<spatie>8b 
020,143,012,020,239shiftd/{spatied8e 
019,020,218,011,020Sshiftd/<spatie>8d 
239,019,020,218,011&shift>/&spatie>fc 
020,239,019,020,218<shift>/<spatiedfb 
O11,020,143,012,0104shift>/<spatie»f9 
048,011,010,247,009&<shift>/<spatiedff 
010,104,009,010,247&shift>/{spatiedec 
009,010,104,009,010shift>/<spatiede9 
097,008,010,119,0074shift>/{spatiede2 
010,097,008,010,119<shift>/<spatie>d9 
007,010,012,007,020Xshift>/<spatie>dd 
071,006,020,143,012<shift>»/{Xspatieddf 
020,239,014,020,143<shift>/<spatie>cc 
012,020,209,018,020Xshift>/{spatie>c3 
143,012,020,030,025{shift>»/<spatie>ca 
010,096,022,010,239&shift>/<spatie>33 
019,010,209,018,0104shift>/<spatie>39 
239,019,010,209,018<shift>/<spatie>3d 
010,195,016,010,239Xshift>»/<spatie>27 
014,010,195,016,010Xshift>/{spatie>2f 
239,014,010,024,014<shift>/<spatie>20 
010,143,012,010,048&shift>/{spatie>23 
O11,010,143,012,010<shift>/<spatie»l4 











031,021,010,143,012<shift>/<spatie>19 
010,031,021,010,048<shift>/<spatie>16 
011,010,031,021,0104shift>/{spatie>07 
143,012,010,031,0214shift)/{<spatie>08 
010,143,010,010,031éshift>/éspatied0d 
021,010,048,011,0104shift>»/{Xspatie>78 
143,010,010,048,011éshift>/{spatie>78 
010,209,018,010,048<shift>/<spatie>77 
011,010,209,018,0104shift>/(spatied66 
143,010,010,209,018{<shift>/{<spatie>67 
0190,048,011,010,209Cshiftd/Cspatie>69 
018,010,104,009,010Cshift>»/Cspatie>50 
209,018,020,239,0l44shift»/{spatie>5d 
020,143,012,020,1434shift>/{spatie>5c 
010,020,1443,012,020éshift>/{spatiedbe 
097,008,020,143,010<shift>/{Xspatie>42 
020,024,014,020,048tshift>/{spatied43 
011,020,104,009,020Sshift>/{spatie>47 
048,011,020,233,007Xshift>/{spatiedbc 
020,104,009,020,1434shift>/éspatie>b6 
012,020,143,010,020<shift>/<spatie>bd 
225,008,020,143,010&shift>/{spatiedae 
020,012,007,020,225<shift>/{spatie>a2 
008,010,180,004,0104shift>/{spatiedad 
104,009,010,097,008<shift>/<spatied9e 
010,104,009,010,0714shift>/{spatie>98 
006,010,104,009,010Cshift>/{spatie>»95 
012,007,010,104,009Xshift>/{spatie>8d 
010,119,007,010, 104Xshift>/{<spatie>8a 
009,010,071,006,0104shift>/éspatie>87 
104,009,010,048,004X<shift>/Cspatied8e 
010,097,008,010,119Xshift>/{spatiedff 
007,010,097,008,010Cshift>/<spatiedfc 
152,005,010,097,008X<shift>/{spatiedfe 
010,071,006,010,097{shift>/{spatiede9 
008,010,012,007,010&shift>/<spatiede0 
097,008,010,152,005<shift>/{spatieded 
010,097,008,020,1194shift>/<spatie>da 
007,020,104,009,020<shift>/{spatie>d8 
048,011,020,104,009Xshift>»/{<spatiedda 
020,239,014,020,048<shift>/<spatiedc4 
O11,010,209,018,010Cshift>/<spatie>cO 
096,022,010,239,019shiftd/<spatiedcl 
010,096,022,010,209Xshift>/{spatie>30 
018,010,096,022,010Cshift>/éspatied37 
239,019,010,096,0224shift>/{spatie>30 
010,209,018,010,0964shift>/{spatie>36 
022,010,239,019,010Xshift>/{spatied20 
096,022,010,239,014<shift>/<spatie>2e 
010,209,018,010,195Cshift>/<spatie>25 
016,010,209,018,010shift>/<spatiedl2 
239,014,010,209,018<shift>/<spatie>l2 
010,195,016,010,209{shift>/{spatied18 
018,010,239,014,010shift>/<spatie>02 
209,018,010,195,016Cshift>/<spatie>O0a 
010,209,018,010,143Lshiftd/{spatied0c 
012,010,239,014,010Sshift>/<spatie>7b 
024,014,010,239,014&shift>/<spatie>7d 
010,143,012,010,239shift>/{<spatied72 
014,010,024,014,010<shift>»/<spatie>62 
239,014,010,143,012Cshift>/<spatie>68 
010,239,014,010,0244shiftd/{spatied6S 
014,010,239,014,020Xshift>/{<spatie>60 


143,010,020,097,008&shift>/{spatie»>53 
020,048,011,020,097{Xshift>/{spatied5f 
008,020,024,014,020Cshift>/Xspatie>51 
048,011,010,239,014<shift>»/{spatied47 
010,195,016,010,239shiftd/Sspatiedde 
044,010,024,014,0104shiftd/{spatied4f 
143,012,010,024,0l4éshiftd/éspatiedbe 
O10,143,012,010,048<shiftd/<spatiedb5 
O11,010,143,010,010&shift>/&spatie>b0 
048,011,040,443,010Cshiftd»/{<spatieda0 
010,104,009,020,097Xshift>/{spatiedac 
008,010,048,011,010<shift>/<spatiedad 
143,040,010,104,009Xshiftd/{<spatied9l 
010,143,010,010,104shift>/{spatied9c 
009,010,097,008,0104shift>/{4spatie>9e 
119,007,010,097,008<shift>/<spatied9d 
010,119,007,010,0124shift>/<spatie>82 
007,010,071,006,0104shift>/{spatie>85 
012,007,010,071,006<shift>/{spatie>80 
010,152,005,010,097<shift>/{<spatie>f5 
008,010,119,007,010Xshift>/<spatie>f5 
012,007,010,119,007<shift>/<spatie>fd 
020,097,008,020,048£<shift>/<spatiede3 
004,040,152,005,080Xshift>/{spatiede7 
000,000,169,003,14i<shift>/{spatiedee 
032,208,169,001,14i<shiftd/{<spatie>da 
033,208,169,147,032Xshiftd/<spatiedda 
210,255,169,031,032Xshift>»/<spatieddc 
210,255,162,000,189Xshift>/{spatiedcf 
076,200,201,255,240<shift>/<spatiedca 
008,073,253,032,210Xshift>/<spatiedch 
255,232,208,241,169Xshiftd/<spatiedc6 
000,168,145,043,200Xshiftd/{spatie>35 
145,043,165,043,024<shiftd/{spatied36 
105,002,133,045,165<shift>/<spatied31 
044,105,000,133,046£<shift>/{spatied2f 
032,142,166,165,055<shift>/{spatie>d26 
164,056,133,051,132&shift>»/<spatie>23 
052,165,045,164,046<shift>/{<spatiedlc 
133,047,132,048,133<shift>/{spatied13 
049,132,050,096,221<shift>/<spatie>ll 
221,221,221,221,221<shift>/<spatie>Ob 
221,221,215,215,215{shift>/éspatie>0Ob 
181,188,173,173,164<shift>/<spatie>0a 
221,173,175,178,1864shiftd/<spatied7d 
175,188,176,176,1804shift>/<spatie>75 
179,186,220,215,215{shift>/<spatie>71 
215,221,221,221,22i<shift>/{spatie>72 
221,221,221,221,240<shiftd/<spatie>69 
173,175,178,186,175<shiftd/{spatie>66 
188,176,176,184,185<shift>/<spatie>65 
221,187,178,175,221&shift>/<spatie>5b 
164,178,168,221,191{shift>/éspatie>59 
164,221,175,178,184{shift>/{spatie>54 
177,187,221,174,177&<shift>/<spatie>d4 
168,176,188,179,2404shiftd»/{spatie>4b 
164,178,168,221,174&shift>/<spatie>46 
169,180,177,177,221Xshift>/<spatiedbd 
181,188,171,184,221&shift>/{spatiedbe 
206,197,196,204,204<shift>/<spatiedb4 
221,191,164,169,1844shift>/{spatie>a2 
174,221,187,175,184&shift>/Xspatiedac 
184,240,255,255,255{<shift>/<spatieda9 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


SCROLL- 
BEGRENZER 


door Marcel van Valen 


In veel professionele program- 
ma’s blijven een of meer regels 
onbeweeglijk in beeld staan, ter- 
wijl een tekst over de rest van 
het scherm schuift. Het on- 
‚derstaande artikel laat zien hoe 


u dit ook in uw eigen program- 
ma’s kunt bereiken. 

Hoeveel fraaie eigenschappen de 
Commodore 64 ook bezit, vaak 
is het toch handig als je een van 
die eigenschappen kunt ver- 
anderen. 

Zulke veranderingen in het be- 
drijfssysteem van de computer 
kunnen op diverse manieren tot 
stand worden gebracht. Vaak 


wordt een zogenaamde WEDGE 
gebruikt. Daarbij wordt de rou- 
tine die onderzoekt welke Basic- 
commando’s worden ingetypt, 
vervangen door een nieuwe. Zo 
kan men bijvoorbeeld het com- 
mando ’LOAD’ laten verwijzen 
naar een andere, meestal snelle- 
re laadroutine. Of men kan zelf 
commando’s invoegen, zoals 
PLOT of SOUND. Minder vaak 
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wordt een interrupt-routine ge- 
bruikt. Hierbij wordt vele malen 
per seconde een programmaatje 
doorlopen, waarin men bijvoor- 
beeld kan testen of een bepaal- 
de toets is ingedrukt. Een derde 
methode is het kopiëren van het 
bedrijfssysteem naar RAM, 
waarna de gewenste routines di- 
rect kunnen worden veranderd. 
Deze methode zullen we aan de 
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hand van een voorbeeld toe- 
lichten. 


VAN ROM NAAR RAM 

Het bedrijfssysteem van de C-64 
is grofweg in tweeën verdeeld: 
het Basic-deel van adres $a000 
(decimaal 40960) tot $bfff en de 
Kernal van $e000 tot Sffff, De- 
ze beide gebieden zijn normaal 
dus met Rom bezet, waarin 
niets veranderd kan worden. 
Maar onder dat gebied bevindt 
zich ook Ram. Het is niet moei- 
lijk de inhoud van de Basic- en 
Kernal- Roms te kopiëren naar 
dat onderliggende Ram- geheu- 
gen. De Commodore 64 zal bij 
het PEEK-en in deze gebieden 
naar het Rom kijken, maar bij 
het POKE-en wordt geschreven 
in het Ram. De opdracht POKE 
40960, PEEK(40960) lijkt zin- 
loos, maar heeft wel degelijk 
gevolgen. Het getal 94, de in- 
houd van de eerste byte van het 
Basic-Rom, wordt gekopieerd 
naar Ram. Het volgende pro- 
gramma zorgt dat zowel Basic 
als Kernal naar Ram worden ge- 
kopieerd: 


LISTING 1 


30000 
30010 
30020 
30030 
32000 
32005 
32010 
32015 
32020 


LISTING 2 


10 for a=0 to 8191 
20 poke 40960 +a, 
(peek(40960 + a) 
30 poke 57344 +a, 
(peek(57344 +4) 





40 next 

Houd rekening met een flinke 
wachttijd, want er wordt liefst 
16K gekopieerd! Om uw geduld 
niet al te zeer te beproeven, 
hebben we een machinetaal- 
routine bijgevoegd in de vorm 
van een Basic-lader die het zelf- 
de doet als dit Basic- 
programmaatje, maar in een 
fractie van de tijd. De routine is 
vrij verplaatsbaar door het getal 
49152 door een ander te vervan- 
gen. Ook de SYS-opdracht moet 
daarbij veranderd worden! (Zie 
LISTING 1) 

We hebben nu bereikt dat het 
Ram van $a000-bfff en van 
$e000-ffff dezelfde inhoud heeft 
als het Rom. Maar de C-64 
trekt zich van onze inspanning 
weinig aan. Hij kijkt nog altijd 
naar het Rom. Om iets in het 
bedrijfssysteem te kunnen ver- 
anderen, moeten we zorgen dat 


de computer naar het Ram kijkt 
in plaats van het Rom. Dat kan 
met behulp van adres 1. Nor- 
maal staat hierin het getal 55. 
Door dit getal te wijzigen in 54 
(met de opdracht POKE 1,54) 
wordt het Basic-Rom van 
$a000-bfff uitgeschakeld. De 
C-64 ontdekt nu opeens dat er 
op diezelfde plek ook Ram aan- 
wezig is! Hadden we niet eerst 
ons ROM- 
kopieerprogrammaatje gerund, 
dan zou de computer nu tegen 
een leeg stuk geheugen aankij- 
ken en niet meer weten wat hij 
moest doen. Hij zou als het wa- 
re zijn Basic vergeten zijn. We 
gaan nog een stukje verder. PO- 
KE 1,53 heeft tot gevolg dat 
ook het Kernal-Rom gebied van 
$e000-ffff wordt uitgeschakeld. 
Nu kunnen we wijzigingen in 
het bedrijfssysteem aanbrengen. 
Om te bereiken dat de bovenste 
regel van het beeldscherm niet 
verdwijnt bij het scrollen, bren- 
gen we de volgende wijziging 
aan: POKE 59639,0. Daardoor 
laten we onze microprocessor 
denken dat het omhoog scrollen 


for x=49152 to x+4i<shift>/<spatie>46 
read y:pokexz,y{<shiftd/éspatie>dll 
next{<shift>/{Xspatie>b3 
sys49152<shift>/<spatie>9e 
data1i69,0,133,251,168,169,224,1334shiftd/{spatieddf 
data252,177,251,145,251,230,251,208,248,230{shift>»/<spatie>di 
data252,208,244,169,160,133,252,177<shift>/<spatie>d9 
data251,145,251,230,251,208,248,230,252{<shiftd/<spatiedc6 
data165,252,201,192,208,240,96<shift>/{spatiede7 


VOOR het RUNnen van dit programma EERST LISTING 1 RUNnent 


5 for a= 59446 to ats<shift>/<spatie>37 
7 read b: poke a,b{<shift>/{Xspatied40 
9 next{shiftd/{spatied3b 


10 
20 
30 
50 
55 


60. goto5stshiftd/{<spatiedb5 
135 data 198,214,208,2,230,214<shift>/{spatie>21 
140 data 32,32,32,32,32,4,5,13,15,14,19,20,18,1,20,9,5,32,19,3,18,15,12,12,45<sh 


ift>/{&spatied06 


poke59639,0:poke1,53shift>/<spatied07 

for 1=Oto39:read dipoke 1024+1l,(dori28){shiftd/{spatieha2 
poke 55296+1l,O:nezxt{<shift>/{spatiedf6 
printchr$C(i9)chrs(17)<shift>/<spatiedas 

print”"commodore dossier ";{shift>/{spatied9f 


niet bij regel 0 moet beginnen, 
maar bij regel 1. Het blijft ech- 
ter mogelijk om de cursor in de 
eerste regel te bewegen. Willen 
we ook dit verhinderen, dan 
zullen we de Cursor-up routine 
moeten aanpassen. Het volgende 
programma doet dit: 


10 for a=59446 to a+ 5 

20 read b: pokea,b 

30 next 

40 data 198,214,208,2,230,214 


De eerste beeldregel is nu bijna 
helemaal veilig. Alleen met de 
CLR/HOME toets kan nog 
schade worden aangericht. Wilt 
u deze techniek in een eigen 
programma toepassen, dan moet 
u hiermee rekening houden. 
Wilt u op de vastgezette regel 
een tekst zetten, dan moet u dit 
doen voordat u de waarde in 
adres 1 verandert. Een andere 
mogelijkheid is het poken van 
een tekst in het beeldscherm- 
geheugen. Vergeet daarbij het 
kleurgeheugen niet. LISTING 2 
geeft een simpel voorbeeld. Veel 
plezier! 


145 data 2,5,7,18,5,14,26,5,18,32,32,32,32,32,32{shift>»/{spatie>23 
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COMMODORE MARKT 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en ane an illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 
IK ZOEK SOFTWARE 


@ Wie kan mij helpen aan programma’s 
op Cass. of papier voor de CBM64? 
Event. tegen redel. verg. A.H. Mouthaan, 
Hoornstraat 19, 5402 HN Uden, tel. 
04132-50204. 


® Gevr. softw. voor CBM64 tegen redel. 
prijs. Tel. 03405-63879. 


@ Wie kan mij helpen aan een goede da- 


tabase of spreadsh. v. GBM64? Tevens 


div. serieuze softw. J. Valkenburg, Krans- 


sen 35, 5581 AG Waalre. Tel. 
04904-4614. 


® Ik zoek datab. en spreadsh. v. Com- 
modore 610 op diskette 170K. Putzeis 

Luc, Hoegaardenstr. 84, 3000 Leuven / 
België. 


® Ben op zoek naar een inventarisprogr. 
v. inboedel van woning. Tegen een redel. 
verg. Aanb. + prijsopg. naar H. Verhoef, 
Postbus 219, 3640 AE Mijdrecht. 


@ Wie kan mij helpen aan een listing 
van database en spreadsh. uit het 
O-nummer? Tevens tape-to-disk-copier 
gez. R. v.d. Putten, Jan de Louterstraat 
130, 1063 LB Amsterdam. 


® Progr. v. zendamateurisme op schijf, 
cass. of listings. Aanb. 04132-64900, 
weekends. 


® Zoek programma’s voor Commodore 
64. Ben in bez. v. diskdrive + cass.rec. 


Le Bourlier W., Sijsstraat 15, 2060 Merk- 


sem / België. 


IK WIL RUILEN 


® Wie wil met mij softw. ruilen? Alleen 
cass.games. Ik heb zo’n 150 topgames. 
Stuur lijst of cass. naar Vermeulen H., 
Winricusstr. 45, BM 6467 Kerkrade. 


®@ Wie wil o.a. Ghostbusters + Protector 
2 ruilen tegen programma’s + spell.? S. 
de Groot, G. v. Heesstr. 16, Haarlem. 


® Ik wil softw. op cass. ruilen, 10 progr. 


op cass.: even veel retour. Vic-20 3.5K. 
Zoek ook Adventure op cartr. Antonio 
Termeer, Bronkhorststraat 19, Bemmel. 


® Softw. v. CBM-64, ca. 400 program- 
ma's. Stuur je lijstje naar: P. Hermens, 
Baaksstraat 21, 6369 HG Simpelveld, tel. 
045-443131. 


© Spellen te ruil voor de Com.64. o.a. 
Zaxxon, Ghostbusters, Imposs. Miss., 
Beach Head en Solo Flight. Bel. 
02510-38906 en vraag naar Fulco. 


® Wie wil met mij spel- en ge- 
bruiksprogr. ruilen op cass. voor de G64? 
W. Leschot, Tilanusstr. 4B, 1091 BH 
Amsterdam. 


@ Comm.64 softw. te ruil gevr. Stuur 
lijst naar H. Buikema, Fultsemaheerd 54, 
9736 CR Groningen. 


® Ik zoek ruilpartners v. softw. C64. Al- 
leen op cass.! Spellen maar ook 


gebr.softw. Lijsten aan H. Jonkers, G. Ge- 


zellestr. 59, 5921 TX Venlo-W. 


® Softw. v. div. aard, bekende spelpro. 
in Turboload aanw. Zelf zoek ik serieuze 
progr. D. v. Kolck, Liebergerweg 11, 
1221 JN Hilversum, tel. 035-833944. 


@® Wie softw. wil ruilen voor CBM-64, 
stuur uw lijst naar: Verniers F., Kunste- 
naarstraat 18, 9110 Gent / België. lede- 
reen die schijft krijgt antw. 


® Ik wil gaarne softw. ruilen voor C64. 
Geen spell. maar profess. progr. B. Wer- 
ners, Colijnstraat 132, 3317 GH Dor- 
drecht, tel. 078-181316. 


® C-64 club ruilt progr. Bezit zelf 1000 
progr. Schrijf of bel naar J. L. van Loo, 
Kabouterweg 39, B-8460 Koksijde, tel. nà 
17u 00352-058511669. 


® Ik wil softw. ruilen. Ik heb 800 progr. 
Peter v. Gemert, Eglantier 10, 6081 CJ 
Haelen, 04759-2231. 


® Te k.: model sleepboot incl. zender, 
geheel vaarklaar. Gezocht: CBM803 prin- 
ter of 2M all mode set. B. de Graaf, tel. 
02247-1926, Schagerbrug (NH). 


® Stuur mij een bandje met 20-30 goede 
CBM-64 progr. en u ontv. eenz. bandje 
retour. B. Deen, Breedstr. 90, 1601 KE 
Enkhuizen, tel. 02280-13660. 


® Ik heb plm. 300 progr. en wil deze 
ruilen tegen andere CBM-64 programma's. 
L. de Blaauw, Cl. Fonteynestraat 6, 8701 
EL Bolsward, tel. 05157-4228. 


@ Wie wil er met mij C64 progr. ruilen 
op disk. Bezit plm. 450 progr. P. Laza- 
roms, Gastelseweg 13, 4702 SZ Roo- 
sendaal. 


® Ik zoek alle mogelijke en onmog. 
progr. v. de CBM-64. Stuur opg. + event. 
prijs naar A. Heufke Kantelaar, Modder- 
manspad 4, 9545 TX Bourtange. Ik stuur 
terug. 


® Heb 500 progr./spell. te ruil v. de 
C64. Stuur uw lijst naar Marcel Stroeve, 
Gr. W. Lodewijkstraat 34, Rijssen. 


® Wie wil softw. ruilen voor de CBM-64? 
M. v. Grieken, KPC de Bazelstraat 59, 
1402 XB Bussum. 


® Uitg. M”arklin treinbaan nw.prijs plm. 
f 1300 te ruil tegen printer b.v. CBM802, 
AVT80 of verg. printer. Tevens softw. 
gevr. (300 progr). Tel. 02208-94236 
(Remko). 


IK BIED HARDWARE AAN 


® Vic-20 + 32K Ram uitbr. + 2 Ned. 
boeken + veel softw. Prijs f 450, Tel. 
04132-62881. Vragen naar Remco. 


® Vic-20 + cass. + 8K + gebruik- 
saanw. + boek v. programmeurs. Prijs 
f 450, Tel. na 18u 02503-30556. 


® Speedloader voor diskdrive 1541 voor 
C 64 cartridge f 65,-. Nico van Lyperen, 
Avenue Concordia 96, 3062 LA Rotter- 
dam, tel. 010-330230. 


®@ VC-1515 printer voor C64 & Vic-20. 
Vraagpr. f 225,-. P. Grob, 04242-19653. 


® Casio PB-100 pocketcomp. incl. inter- 
face FA-3 + miniprinter FP-12 + Ram- 
module OR-1 + Pearl minirec. + boeken 
+ softw. Nieuw f 850,-, nu f 350,-. tfn. 
04104-93367 avond. 


IK BIED HARDWARE EN 
SOFTWARE AAN 


® Vic-20 + rec. + softw. + boeken. 
Pr. f 400,-. Tel. 038-215884. 


® ZX81 + cass. + tv 31 cm + keyb. 
+ softw. en boeken, t.e.a.b., 
01684-3782. 


® Commodore 64 (6 mnd.) z/w monitor 
amberkl. (2 mnd. oud). Softw. t.w.v. 

f 1000. Joyst., boeken, tijdschr, prijs 
f 1500. Datarecorder. Tel. 020-326740. 


® C-64 + datarec. + uitbr.print + 
elockprint + outp.kaart 8 uitg. + 
softw.boeken, 20.000 Bfr. De Smet Marc, 
Dwarsstraat 42, B-9470 Denderleeuw / 
België. Tel. 053/667923. 


® Vic-20 + handl. + ref.guide + boek: 
More about Vic-20 + mach.taal monitor 
+ handl. + spel (cartr.) + 35 spellen 
(cass.) + div. andere softw. + cass.in- 
terf. Pr. f 350,-. R. v.d. Kraan. Tel. 
02520-17063. 


IK BIED SOFTWARE AAN 


® Picasso-64 (cassette) Hfl. 35,- / Het 
Grafiekboek v.d. Commodore (Data Bec- 
ker) Hfl. 17,50. H. Sanders, De Krim, tel. 
05247-1829. 


® Zero-80-kolomskaart v. C-64 met 
tekstverw. op tape (nieuw) van f 340,- 
voor f 200,-, 070-904237. 


® Veel softw. v. CBM-64. Hoofdz. spel- 
letjes (Zaxxon, Falconpatrol, Pacman 
etc). Voor info tel: 071-768620. 


@ Commodore 64: veel spelletjes (o.a. 
Decathlon, Popeye, Puck Man). Nieuww. 
ong. f 2000,-! Zeer lage prijs. Voor info 
bel (na 4u) 040-425146. 


IK ZOEK HARDWARE 


® Ik zoek C 64 + rec. voor begin, tel. 
078-184903. 


® SX64. P. Meyers, Peelland 45, 5144 
ER Waalwijk, na 19u 04160-38109. 


® Op zoek naar goede printer/typemach.: 
alleen in goede st. / Comm64 / tel. 
040-538862. 


® Gevr. gratis of heel goedk. MPS801 of 
802. Tev. CBM64 Refer. Guide, stud. Bob 
Drammann, Vliet 57, 1703 JB Heerhugo- 
waard, 02207-40266. 


® Gez. Commodore 1541 diskdrive, jong 
en weinig gebr. Aanb. + prijsopg. tel. na 
18u 08373-13755. Vragen naar Kees 
van Loon. 


® CBM 1541 diskdrive, 2e hands. Mag 
plm. f 400,-kosten. Adres: RL-Softtronics, 
POBox 267, 3940 AG Doorn. 


® Wie heeft voor mij een goede diskdri- 
ve te koop? Prijs tot f 500,-. Aanb. + 
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prijsopg. naar M. Bokshoorn, Zonneoord 
229, 2544 KE Den Haag, tel. 
070-673492, 


® Grafische printer voor CBM-64. Aanb. 
+ prijsopg. naar Herbert de Jong, Kerk- 
laan 17, 2471 AK Zwammerdam, tel. 
01726-13511. 


® Kleurenmonit. en diskdr. v. Gomm. 64. 
T. v.d. Veer, Grote Stern 125, 3181 SE 
Rozenburg, tel. 01819-14971. 


® Ik zoek een diskdrive 1541. Ik ben 
ber. ca. f 400,- te betalen. Tel. 
035-8535739. 


® Commodore 64, datarec, joyst., softw. 
en lektuur. Aanb. (liefst schriftel.): H. van 
Aken, Postb. 73, Duiven, tel. 
08367-16582. 


®@ CBM 1541 diskdrive, 
02507-18750/19315. 


© Commodore 64 diskdrive 1541, max. 
1jr. oud + printer MPS-801. Aanb. met 
prijsopg. aan B. Hoeben, Junoplantsoen 
92, 2024 RS Haarlem. Wie kan dubb. 
precisie aanbrengen in C64 (chip?)? 


® Wie heeft voor mij, P. Bos, Hoofdstr. 
63, Meedhuizen: Vic 1011/A adaptor + 
Caso-50 kabel voor verb. met RS232C 
(van C64 naar EP44 printer)? 


IK ZOEK HARDWARE EN SOFTWARE 


®@ MPS802 printer, floppy 1541, bestand- 
programma’s in mach.taal. E. Blankers, 
tel. na 17.30u 04950-31199. 


® C64 diskdrive en printer, G64 softw. 
op cass. of listing. Aanb. + prijsopg. 
naar P. Berghuis, Weth. G. Reinderstr. 1, 
Warffum. 


® Programma's en memory-uitbr.-printen 
C16 gewenst. Compensaties mogelijk 

(spelletjes). Sgt. Carlier P, AVX BKOKS R 
Vandamme 100, 8460 Koksijde / België. 


OVERIGE 


® 1541 Laien-Einstellanleitung ”dauer- 
haft”! Komfortable Anl. für 10 DM (etc.) 
von: Volker Mücke, Im Hag 32, 5180 
Eschweiler, W-Duitsland (bar, eigene 
Währung etc). 


® Gevr.: kltv. max. 51 cm-scherm. Pr. 
tot f 300,-. J. de Vries, Fr. Leharpark 35, 
5144 TD Waalwijk, tel. 04160-39089. 


@ Wie kan mij helpen aan een handl. 
(ev. fotocopie) van Viza-Write? Ev. on- 
kosten worden vergoed. Tel. 
030-780202. 


® Wie kan voor mij in machinetaalprogr. 
het devicenr. wijzigen van cass. in dis- 
kdrive? Ben Souisa, 030-617230. 


® Adventure problemen? Of juist niet! 
Dan hoort u in de Aha! helpline thuis. 
D.R. Dooren, Lekstraat 3, 3313 XG Dor- 
drecht. 


Uw advertentie-opdrachten 
sturen naar: CD-MARKT 
t.a.v. Carla de Haan 
redactiesecretariaat 


Rijnsburgstraat 11 
1059 AT Amsterdam 





Maandelijkse rubriek met de belangrijkste informatie uit de 
Commodore gebruikersclubs. 


BULLETIN BOARDS 
GEBRUIKERSGROEPEN 


Wie tegenwoordig over een mo- 
dem beschikt, zal langzamer- 
hand moeten overwegen zijn 
vaste baan op te zeggen. Er zijn 
inmiddels zoveel prikborden en 
databestanden dat het bijhouden 
ervan een complete dagtaak is 
geworden. Wie eenmaal begint 
met het communiceren via de 
telefoon op het beeldscherm, 
raakt er makkelijk aan verslin- 
gerd. De rage doet een beetje 
denken aan het werken met 
‘bakkies’ dat enige tijd geleden 
zo populair was. Het belang- 
rijkste verschil met de bakkies is 
dat ’telecomputing’, om het 
maar eens met een mooi Neder- 
lands woord te zeggen, prak- 
tisch nut heeft. Bakkenisten zul- 
len ons deze opmerking niet in 
dank afnemen, we weten het. 
Bijzonder populair is het ’down- 
loaden’ van programma’s, het 
via de telefoon binnenhalen van 
software, al dan niet tegen een 
vergoeding. 

Dat aanleveren van program- 
ma’s zal ook de belangrijkste 
aantrekkingskracht worden van 
de elektronische prikborden die 
de gebruikersgroepen VCGN en 
SCN Hot News binnenkort 
opstarten of inmiddels al op- 
gestart zijn. 

Als alles goed is gegaan, is SCN 
Hot News inmiddels gestart met 


Stichting Computer Hobbyisten 
Nederland (SCN) 
HOT NEWS 


zijn eigen databank. Die data- 
bank is in principe voor ieder- 
een met een modem toeganke- 
lijk, maar heeft een speciaal 
deel alleen voor leden. De data- 
bank is van 7 uur ’s avonds tot 
7 uur ’s morgens bereikbaar, in 
het weekend van vrijdagavond 7 
uur tot maandagochtend 7 uur. 
Adverteerders kunnen in het 
bestand van SCN Hot News pa- 
gina’s huren. In eerste instantie 
is de databank alleen bereikbaar 
met een 300 bauds verbinding, 
maar dat verandert snel in 
1200/75 zodat iedereen met een 
PTT-modem binnen kan. 
VCGN, die andere grote gebrui- 
kersvereniging, is inmiddels in 
Rijswijk een bulletin board of 
elektronisch prikbord gestart. 


Dat prikboard is ook 300 baud 
originate, dat wil zeggen dat de 
data met een snelheid van 300 
baud worden overgebracht, Dat 
gaat niet met een PTT-modem, 
dus daar is een speciaal modem 
voor nodig. Het prikbord, 
Commodore Bulletin Board 
System of CBBS genoemd, is 
van 17.00 tot 01.00 bereikbaar 
onder telefoonnummer 070 — 
961713. Voor VCGN-leden zijn 
er extra faciliteiten, die worden 
dus voorgetrokken. Systeembe- 
heerder is Jim van Eck. 


Secretariaat: A. Brink, 
tel. 03450-16051 (ma-, di- en wo- 
dag tussen 13.00 en 22.00 uur) 


Voor inlichtingen over de regio- 
nale afdelingen kunt u zich 
wenden tot: 

Afdeling Zwolle: P.P.L. van 


- Bijsterveld, tel. 038-548459, 


Afdeling Midden Nederland: H. 
Scheffer, tel. 03453-1375 
Afdeling Deventer: 

tel. 05700-50758/50759 
Algemene bijeenkomsten: 

tweede zaterdag van de 

maand in De Meervaart, Osdorp- 
plein, Amsterdam. 


Vereniging voor de Gebruikers 
van Commodore-computers in 
Nederland (VCGN) 


Secretariaat: Ine van Teijlin- 
gen, De Brink 928, 2553 HT 
Den Haag, tel: 070-971851 
(van 20.00-22.00 uur, m.u.v. 
maandag en woensdag) 
b.g.g. 070-687924 of 
070-946156 


Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeeland: R, van 
Dijk, tel. 01180-25746 
Afdeling West-Brabant: P. 
Nelen, tel. 01640-51639 
Afdeling Midden-Brabant: W. 
Wils, tel. 01620-55634 
Afdeling Oost-Brabant: C. de 
Winter, tel. 04120-42054 
Afdeling Zuid-Limburg: J. 
van Mastrigt, tel. 043-476935 
Afdeling Zuid Holland-Zuid: 
D. van Riemsdijk, tel. 
010-501023 

Afdeling Noord Holland-Zuid: 
J.A. Dekker, tel. 02502-7968 
Algemene bijeenkomsten: 
laatste zaterdag van de maand 
in Rijswijk (Lodewijk Make- 
blijde College, H.R. Holstlaan 
2, 2283 HB). 
Afdelingsbijeenkomsten: 
Afdeling Zeeland: De data 


DOSSIER COMMODORE AKTIEF 


is een uitgave van 

VNU Business Publications BV 
Rijnsburgstraat 11, 1059 AT 
Amsterdam. 


PROJECT-REDACTEUR 


VORMGEVING 


Rob van Middendorp 
Hans van Reemst 
Daan Ricke 


SECRETARIAAT EN 


Mat Heffels 


BEELDVERWERVING 


Carla de Haan 


Commodore Dossier komt tot stand in 
nauwe samenwerking met de redactie 
van 


PGM 


AAN DIT NUMMER WERKTEN MEE: 


LEZERS-SERVIGE 


Vragen over gepubliceerde programma’s 
kunnen alleen schriftelijk worden 
beantwoord. 


LOSSE NUMMERS 
Aldipress BV, De Meern, 


MARKETING 


Sander Beek 
Frans de Haas 


…_ ADVERTENTIE-EXPLOITATIE 


Johan IJsebrands 
Frank Tanis 
Ton Cobelens 


tel. 03406 — 2044 


Peter Kuipers 
Roelf Sluman 


Chiel Kramer (hoofdred.) 
Hans Becker 
Dirk H. Ringenoldus 


Henk Snoeks 
Marcel van Valen 
Kees Vuik 


UITGEVER 
Pim de Wit 


COMMODORE DOSSIER AKTIEF 


Voor België: TUM, Antwerpen, 
tel. 03 — 237 0120 


ADVERTENTIE-SECRETARIAAT 


Rob van den Berg 





18 


van de overige bijeenkomsten 
zijn nog niet bekend. 
Afdeling West-Brabant: eerste 
zaterdag van de maand. 
Afdeling Midden-Brabant: 
derde zaterdag van de maand 
Afdeling Oost-Brabant: derde 
zaterdag van de maand 
Afdeling Zuid-Limburg: eerste 
zaterdag van de maand 
Afdeling Zuid Holland-Zuid: 
eerste zaterdag van de maand 
Afdeling Noord Holland-Zuid: 
eerste zaterdag van de maand 


PET-Benelux Exchange 
Secretariaat: Copytronics, 
Postbus 700, 7400 AS Deven- 
ter, tel. 05759-2211 

Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeist: tel. 05759-211 
Afdeling Nijmgen: tel. 
05759-2211 

Afdeling Haaksbergen: tel. 
053-766444 

Service Reparatie Centrum voor 
PET-leden: tel. 053-766444. 
Algemene bijeenkomsten: 
Afdeling Zeist: eerste zaterdag 
van de maand 

Afdeling Nijmegen: tweede za- 
terdag van de maand 

Afdeling Haaksbergen: derde 
zaterdag van de maan 


HGC-Commodore-COMPET gebrui- 
kersgroep 


Secretariaat: J.J. van Douwen, 
Couwenhoven 1203, 3703 VB 
Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 8/6, 

21/9 en 30/11 

Waddinxveen: zaterdag 

21/4, 6/7, 26/10 en 21/12. 


PRODUKTIE 


Smeets Offset (NBI) 
's-Hertogenbosch 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 






Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1./5 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 80 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 
Zoveel kompleetheid in zo’n klein maatje, dat blijkt En 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 
adres. Adviesprijs F 695,- ex. btw. BROTHER INDUSTRIES LTD, NAGOVA/IAPAN 


BO N . Ik wil meer informatie over de HR-5. 


Naam: 








Postcode: —______________ Plaats: 
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Nd Nd J Battery powered en netvoeding. 


. Brother International (Nederland) BV, 
brother. PETA NN vt 











Een leerzame kennenkhe a 
alle letters van het alfabet en de … 


eerste. eenvoud e on 


er logica in de dingen zit en dat j je 


daar. gebruik van kunt maken. 


Voor kinderen van 7 tot 12 ja 
Commodore e cassette. E 


She heo ti d a watkinde- 
ren de hadden voor hun ontwikkeling. Ook in 
het computer-tijdperk zal dat zo blijven. Want 
_ Fisher-Price heeft nu ook het leer-gereedschap 
van deze tijd: zorgvuldig bedachte computerpro- 
gramma's waarmee kinderen spelend wijzer wor- 
den.Diespellen zijnzoleuk datuvanzelf meegaat 
doen. En dat stimuleert uw kinderen nog meer. 


Met een Commodore 64 in huis plus een 


paar Fisher-Price spellen, ebt u al gauw geen 
kindn meer aan uw a Ee 


DENKRAAM 


Een ‘Een spel om he om het visuele geheugen 
te ontwikkelen. Dat is de basis van 
alle leeractiviteiten. 


Voor kinderen van 4 tot 8 jaar. 
_ Commodore 64/cassette. 


TUIMELTELLER 


Met Tuimelteller oefent een kind 
zich in rekenen (optellen, 
aftrekken, vermenigvuldigen en 
delen) op een knappe, ger 
manier. 

Voor kinderen van 7 wt 12 jaar. 


_ Commodore 64/cassette. 


Uitgeverij Malmberg b.v. 


Postbus 233 


5201 AE Den Bosch 


Tet. 073-215565 








OT LE EL EN) (Al 
orig EEE fte) EAT: iS 
tatierekening, loonadministratie, crediteu- 
ee OT TOL OE len ED 
Molal gE To aa IA ISLE CO EETL JOD 
AIEE 

Omdat de Commodore personal com- 
puter deze omvangrijke werkzaamheden 
elke maand voor uw bedrijf kan doen. 

aaron ELW OLO are ELL 
zijn die elke vorm van bureauwerk kunnen 
VE Gell Ha lorSnk 

foe AEL Cel a TL 
in microcomputers op meer punten naar de 
positieve kant van de balans. Namelijk met 
LEM SIE aes det 
OVT SEE ATL 

Eef: a gTa RoT alan ala NEN 
PAT TEST ETE Laois Tere ON (ole 
drijfskosten. 

BEEN oan eld no EM Oolan ao (OENE 
de boekhouding misschien ook andere kan- 
LOTA VEE an TELLE GL GOLD 


Commodore 


Daar wordt een mens wijzer van. 





